Dim rrview As New reportviewer Dim ProDset1 As New DataSet Dim sqlda As New SqlDataAdapter("select * from PL where fromdate='" & Format(fromdate.Value, "MM-dd-yyyy") & "' and todate='" & Format(todate.Value, "MM-dd-yyyy") & "'", con) Dim sqlda1 As New SqlDataAdapter("select * from Expenses where Date>= '" & Format(fromdate.Value, "MM-dd-yyyy") & "' and Date<= '" & Format(todate.Value, "MM-dd-yyyy") & "'", con) sqlda.Fill(ProDset1, "T1") sqlda1.Fill(ProDset1, "T2") Dim RptProstmt As New Crystal10 RptProstmt.SetDataSource(ProDset1) rrview.viewer1.ReportSource = RptProstmt rrview.viewer1.DisplayGroupTree = False rrview.MdiParent = MyBase.MdiParent rrview.Show()
Table
DataSet
RptProstmt.SetDataSource(ProDset1.Tables(0))
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)