水晶报表主从报表的问题?
菁菁报表 2004-10-26 10:35:04 我使用下一段代码,没有生成数据,且过一会儿程序没有响应。请大家指教!
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=vol;initial catalog=Northwind;user id=sa;password=123")
CN.Open()
Dim daOrders As New Data.SqlClient.SqlDataAdapter("select customerID,employeeid 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