[محمدالزند]

(22-02-20, 04:21 PM)ناجح احمد كتب : اين المبرمجين ؟ ألا يوجد حل !؟؟

كود :

Dim StrSQL As String = "Select * From PC "
       Dim dt As New DataTable
       dt = FillDataTable(StrSQL)
       Dim Rpt As New CrystalReport6
       Rpt.SetDataSource(dt)
       CrystalReportViewer1.ReportSource = Rpt
       CrystalReportViewer1.RefreshReport()
       CrystalReportViewer1.Refresh()

---

جرب هذه الكود