03-04-17, 06:08 PM
أنا حرت في تقرير الكريستال .......لايتماشى مع معطيات الداتا تايبل.....يعني هو يظهر لي كل المعلومات في الجدول.....وأنا أريد اظهار بعضها وفق شروط.........................هبلني
Dim dt5 As New DataTable
dt5 = GET_DATA("SELECT * FROM SUNCE3 WHERE STATPAY=0")
Dim rep As New CrystalReport1 'cryslist هو اسم الكريستال
rep.SetDataSource(dt5) 'dt هي الداتا تايبل التي يأخذ منها الكريستال البيانات
FRMCRYS.CrystalReportViewer1.ReportSource = rep 'showcrystal هو اسم عارض التقارير
FRMCRYS.CrystalReportViewer1.Zoom(75%)
FRMCRYS.CrystalReportViewer1.Refresh()
FRMCRYS.ShowDialog()
Dim dt5 As New DataTable
dt5 = GET_DATA("SELECT * FROM SUNCE3 WHERE STATPAY=0")
Dim rep As New CrystalReport1 'cryslist هو اسم الكريستال
rep.SetDataSource(dt5) 'dt هي الداتا تايبل التي يأخذ منها الكريستال البيانات
FRMCRYS.CrystalReportViewer1.ReportSource = rep 'showcrystal هو اسم عارض التقارير
FRMCRYS.CrystalReportViewer1.Zoom(75%)
FRMCRYS.CrystalReportViewer1.Refresh()
FRMCRYS.ShowDialog()


