Sub BindReport()
Dim myConnection As New SqlClient.SqlConnection()
myConnection.ConnectionString = DataBase.connString
Dim oRpt As New ckmxcx_print1_cr()
Dim dsdataSet As New ckmxcx_print1_ds()
Dim selstr1 As String
selstr1 = "select * from XF_T_CKD_CB "
Dim daOrders As New Data.SqlClient.SqlDataAdapter(selstr1, myConnection)
daOrders.Fill(dsdataSet, "XF_T_CKD_CB")
Dim selstr2 As String
selstr2 = "select * from XF_T_CKD_ZB "
Dim daDetails As New Data.SqlClient.SqlDataAdapter(selstr2, myConnection)
daDetails.Fill(dsdataSet, "XF_T_CKD_ZB")
Dim selstr3 As String
selstr3 = "select* from XF_ZD_ZZJG"
Dim daDetail As New Data.SqlClient.SqlDataAdapter(selstr3, myConnection)
daDetail.Fill(dsdataSet, "XF_ZD_ZZJG")
'使用“报表引擎”对象模型将填充的数据集,传递给报表
oRpt.SetDataSource(dsdataSet)
CrystalReportViewer1.ReportSource = oRpt
CrystalReportViewer1.DataBind()