16,554
社区成员
发帖
与我相关
我的任务
分享
Dim oRpt As New CrystalReport1
Dim dsDataSet As New DataSet()
Dim CN As New Data.SqlClient.SqlConnection("data source=;initial catalog=;user id=sa;password=123456")
CN.Open()
Dim daOrders As New Data.SqlClient.SqlDataAdapter("select fname from zd_qzyhxx", CN)
daOrders.Fill(dsDataSet, "orders")
Dim daDetails As New Data.SqlClient.SqlDataAdapter("select fphone from zd_qzyhxx", CN)
daDetails.Fill(dsDataSet, "Order Details")
'使用“报表引擎”对象模型将填充的数据集,传递给报表
oRpt.SetDataSource(dsDataSet)
CrystalReportViewer1.ReportSource = oRpt