●●●●高分求例程
现在我急需一个水晶报表的例程，要求程序中用到类似下面的方法。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim oRpt As New CrystalReport1()
Dim dsdataSet As New Dataset1()
Dim CN As New Data.SqlClient.SqlConnection("data source=PMSERVER;initial catalog=Northwind;user id=sa;password=sa")
CN.Open()
Dim daOrders As New Data.SqlClient.SqlDataAdapter("select * from orders", CN)
daOrders.Fill(dsdataSet, "orders")
Dim daDetails As New Data.SqlClient.SqlDataAdapter("select * from [Order Details]", CN)
daDetails.Fill(dsdataSet, "Order Details")
'使用“报表引擎”对象模型将填充的数据集,传递给报表
oRpt.SetDataSource(dsdataSet)
CrystalReportViewer1.ReportSource = oRpt
End Sub
问题点数：100、回复次数：3Top
1 楼whatthis（??）回复于 2003-12-03 08:56:46 得分 0
我的E_MAIL为：wwwfind@sina.comTop
2 楼lovingkiss（桃花影落飞神贱，碧海潮生<吹>玉箫 坦白从良 抗拒强奸）回复于 2003-12-03 10:57:39 得分 100
已经发送，请注意查收~~Top
3 楼whatthis（??）回复于 2003-12-03 11:00:25 得分 0
ok.thank you!Top
