[احمد عبد الحكيم]

اخى الكريم هذا كود يقوم بعرض البيانات من قاعدة البيانات على حسب شرط معين مثلا على حسب رقم الفاتورة من مربع النص
قم بتغير ما يلزم على حسب مشروعك

PHP كود :

Dim FrmPr As New prent
        Dim Sql1 As String = "Select * from hagz1 where idtet like " & txtid.Text.Trim & ""

        Dim MyDs2 As New DataSet
        Dim DAdp2 As New OleDbDataAdapter(Sql1, con)
        MyDs2.Clear()
        DAdp2.Fill(MyDs2, "hagz1")
        Dim rpt As New hagz
        rpt.Load()
        rpt.SetDataSource(MyDs2.Tables("hagz1"))


        FrmPr.CrystalReportViewer1.ReportSource = rpt
        FrmPr.CrystalReportViewer1.ShowGroupTreeButton = False
        FrmPr.CrystalReportViewer1.RightToLeft = Windows.Forms.RightToLeft.Yes
        FrmPr.CrystalReportViewer1.Zoom(90%)
        FrmPr.CrystalReportViewer1.Refresh()
        FrmPr.CrystalReportViewer1.Show()
        FrmPr.ShowDialog()
        DAdp2.Dispose()
        con.Close()