[mina mesiha]

انا بعمل برنامج وعايز استخدم فى التقارير crystal report بس عايز اعرض جدولين منفصلين فى تقرير واحد
والمشكلة فى الكود اللى بيدخل على العرض المفروض اكتب فيه جدول واحد
وانا عندى جدولين table1 و table2 اعمل ايه

كود :

Dim report As New CrystalReport1
 (report.SetDataSource (table1

[boudyonline]

اعمل View يتضمن Table1 و Table2

[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 


[mina mesiha]

(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 اظبطهم ازاى