การส่ง parameter ให้ crystal report
Dim datable As New DataTable da = New OleDbDataAdapter("Select cus_id,cus_name,cus_birthday From customer where cus_id =" & tbid.Text, mycon) ds.Clear() da.Fill(ds) datable = ds.Tables(0)
If datable.Rows.Count > 0 Then Dim frmcus As New F_cus Dim orpt As New CrystalReport1 orpt.SetDataSource(datable) frmcus.CrystalReportViewer1.ReportSource = orpt frmcus.ShowDialog() Else MessageBox.Show("ไม่พบข้อมูลที่ต้องการ", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.None) End If
แบบนี้ ถูกไหมอ่ะครับ แต่ใช้ แล้ว มันก็ ไม่ไป อัพเดท หน้า รายงานให้เลย - -
|