[rohiem]

وعليكم السلام ورحمة الله وبركاته
بعد معاناة مع هذا الموضوع وجدت أفضل حل أن تجعل التقارير تأخذ البيانات من داتاسيت أو داتاتيبل ...
خذ الفكرة من هذا الكود :

كود :

con.Open()
        Dim cmd As New SqlCommand("Select * from table1", con)
        Dim cmd1 As New SqlCommand("Select * from table2", con)
        Dim cmd2 As New SqlCommand("Select * from table3", con)

        Dim dt As New DataSet

        Dim da = New SqlDataAdapter(cmd)
        Dim da1 = New SqlDataAdapter(cmd1)
        Dim da2 = New SqlDataAdapter(cmd2)

        da.Fill(dt, "table1")
        da1.Fill(dt, " table2")
        da2.Fill(dt, " table3")

        Dim rpt As New CrystalReport1

        rpt.Load(Application.StartupPath & "\CrystalReport1.rpt")
        rpt.SetDataSource(dt)

        rpt.SetParameterValue(0, ComboBox1.Text)

        Dim newviewre As New viewre1
        newviewre.CrystalReportViewer1.ReportSource = rpt
        newviewre.Text = "  كشف "

        newviewre.CrystalReportViewer1.Refresh()
        newviewre.Show()

        con.Close(

وللتوضيح أكثر يمكنك مراجعة سؤالي وأجوبته في هذا الموضوع
http://arabteam2000-forum.com/index.php/...%B1%D8%AA/