ขอตัวอย่าง code crystalreport หน่อยครับ ที่ดึงข้อมูลมาจาก sql แล้วออกรายงานอีกหน้า ครับ

Dim rpt As New report_1
                rpt.RecordSelectionFormula = "{detail_item.item_group} Like '" & cb_group.Text & "' AND {view_detail_item.item_date} in ( cDate( '" & txt_date_1.Value.ToString("dd/MM/yyyy") & "') to cDate ('" & txt_date_2.Value.ToString("dd/MM/yyyy") & "'))"
                cr.ReportSource = rpt
                cr.Refresh() 'rpt คือ crystalreport cr คือตัวที่ view document

"{detail_item.item_group} Like '" & cb_group.Text & "' AND {view_detail_item.item_date} in ( cDate( '" & txt_date_1.Value.ToString("dd/MM/yyyy") & "') to cDate ('" & txt_date_2.Value.ToString("dd/MM/yyyy") & "'))"

        Adapter.Fill(ds, "table2")
        dt = ds.Tables("table2")
        ข้อมูลจาก SQL เก็บใว้ใน table2

            Dim rpt As New CrystalReport1
            rpt.RecordSelectionFormula() = "{  ใส่อะไร  } like '" & ใส่อะไร & "' "
            CrystalReportViewer1.ReportSource = rpt
            CrystalReportViewer1.Refresh()