我想在《晶体报告》中增加2个数据表。
Private Sub btbPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbPrint.Click
Dim ds As New DataSet1
Dim t As DataTable = GetInvoice(txtBillNo.Text)
Dim dt As DataTable = GetDCDetails(t.Rows(0).Item("DcID"))
Dim objRpt As New CrystalReport1
Dim adopter As New SqlDataAdapter
在此,我想在数据来源中添加数据表。
objRpt.SetDataSource(t)
CrystalReportViewer1.ReportSource = objRpt
CrystalReportViewer1.Refresh()
End Sub