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

اخى العزيز شكرا جذيلا لكانا عملت اكثر من ذلك
لاكن توصلت طريقة جميله جدا وهى

PHP كود :

Dim FrmPr As New reportMa

        Dim Sql1 As String = "Select * from entag1 where entagID like " & TextBox1.Text & ""

        Dim MyDs2 As New DataSet
        Dim DAdp2 As New OleDbDataAdapter(Sql1, Con)
        MyDs2.Clear()
        DAdp2.Fill(MyDs2, "entag1")
        Dim rpt As New CrystalReport7
        rpt.Load()
        rpt.SetDataSource(MyDs2.Tables("entag1"))
  

        Dim Sql3 As String = "Select * from entag2 where entagID like " & TextBox1.Text & ""
        Dim DAdpt3 As New OleDbDataAdapter(Sql3, Con)
        Dim Ds1 As New DataSet
        Ds1.Clear()
        DAdpt3.Fill(Ds1, "entag2")
        DAdpt3.Dispose()
      

      

        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()