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
请高手指教、、、、