ขอวิธีออกรายงานโดยใช้ crystal report basic โดยให้รายงานแสดงข้อมูลตามเงื่อนไขได้ เช่น ให้รายงานตามช่วงวันที่เราเลือกได้

Dim ReportLocation As String = Server.MapPath("Reports/report1.rpt")

Sub  Report (byval Date as string )
dim sql as string 
sql ="SELECT NAME1 , NAME2 , NAME3 , NAME4" _
& "FROM TB_USERNAME " _
& "WHERE '" & Date & "'" 

dim ds as new Dataset 
ds = query(sql)  'ส่วนนี้คุณต้องเขียน Connect Base เอง เพื่อให้ได้มาซึ่ง ข้อมูล

if not ds.tables is nothing then

             Dim rpt As New ReportDocument
             With rpt
                .Load(ReportLocation)
                .SetDataSource(ds.tables(0))
            End With
            CrystalReportViewer1.ReportSource = rpt
            CrystalReportViewer1.DataBind()
end if 

end Sub