[الكاتب]

كود :

  Dim sql As String = " SELECT  * FROM Makzn where  NAMEMANTG=@NAMEMANTG"
               Dim comm As New SqlCommand(sql, Sqlconn)
               comm.Parameters.AddWithValue("@NAMEMANTG", Co.Text.Trim)
               Dim da As New SqlDataAdapter(comm)
               Dim dt As New DataTable
               da.Fill(dt)
                   Dim rpt As New Cry1
               rpt.SetDataSource(dt)
                   Form_REPORT.CrystalReportViewer1.ReportSource = rpt

كود :

Makzn
الجدول الذي به الفاتورة

كود :

NAMEMANTG

سجل الفاتورة

كود :

Co.Text.Trim

قيمة الاستعلام

كود :

Cry1

التقرير

كود :

Form_REPORT.CrystalReportViewer2

الفورم الذي به عارض التقارير

ثم اظهر الفورم نهاية الاجراء

كود :

Form_REPORT.show