06-06-13, 10:19 PM
وعليكم السلام ورحمة الله وبركاته
بعد معاناة مع هذا الموضوع وجدت أفضل حل أن تجعل التقارير تأخذ البيانات من داتاسيت أو داتاتيبل ...
خذ الفكرة من هذا الكود :
وللتوضيح أكثر يمكنك مراجعة سؤالي وأجوبته في هذا الموضوع
http://arabteam2000-forum.com/index.php/...%B1%D8%AA/
بعد معاناة مع هذا الموضوع وجدت أفضل حل أن تجعل التقارير تأخذ البيانات من داتاسيت أو داتاتيبل ...
خذ الفكرة من هذا الكود :
كود :
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/

