+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار عن Crystal Report (/showthread.php?tid=33083)
استفسار عن Crystal Report - mina mesiha - 21-01-20
انا بعمل برنامج وعايز استخدم فى التقارير crystal report بس عايز اعرض جدولين منفصلين فى تقرير واحد
والمشكلة فى الكود اللى بيدخل على العرض المفروض اكتب فيه جدول واحد
وانا عندى جدولين table1 و table2 اعمل ايه
كود :
Dim report As New CrystalReport1
(report.SetDataSource (table1RE: استفسار عن Crystal Report - boudyonline - 22-01-20
اعمل View يتضمن Table1 و Table2
RE: استفسار عن Crystal Report - asemshahen5 - 22-01-20
اعمل DataSet و ضع فيها Table1 و Table2 أو عند اختيار قاعدة البيانات في معالج السيكول اختر الجدولين .
و ضع الكود مع التغيير في الاستعلامات بما يتناسب مع جداولك :
PHP كود :
Dim cn As New SqlClient.SqlConnection("Server =(local);database=ALASEMXT;integrated security=true")
Function FillDT(StrSQL As String) As DataTable
Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)
Return dt
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ds As New DataSet
ds.Tables.Add(FillDT("Select * From AccountsTree Where AccountID = 1 "))
ds.Tables.Add(FillDT("Select * From ALL_USERS Where ID = 1 "))
ds.Tables(0).TableName = "AccountsTree"
ds.Tables(1).TableName = "ALL_USERS"
Dim report As New CrystalReport1
report.SetDataSource(ds)
CrystalReportViewer1.ReportSource = report
CrystalReportViewer1.Refresh()
End Sub
RE: استفسار عن Crystal Report - mina mesiha - 24-01-20
(22-01-20, 12:54 PM)asemshahen5 كتب : اعمل DataSet و ضع فيها Table1 و Table2 أو عند اختيار قاعدة البيانات في معالج السيكول اختر الجدولين .
و ضع الكود مع التغيير في الاستعلامات بما يتناسب مع جداولك :
PHP كود :
Dim cn As New SqlClient.SqlConnection("Server =(local);database=ALASEMXT;integrated security=true")
Function FillDT(StrSQL As String) As DataTable
Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)
Return dt
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ds As New DataSet
ds.Tables.Add(FillDT("Select * From AccountsTree Where AccountID = 1 "))
ds.Tables.Add(FillDT("Select * From ALL_USERS Where ID = 1 "))
ds.Tables(0).TableName = "AccountsTree"
ds.Tables(1).TableName = "ALL_USERS"
Dim report As New CrystalReport1
report.SetDataSource(ds)
CrystalReportViewer1.ReportSource = report
CrystalReportViewer1.Refresh()
End Sub
متشكر جدا على الرد بس فى عندى مشكلة Parameters
عندى التاريخ والمسنخدم ليهم 2 Parameters اظبطهم ازاى