منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : استفسار عن Crystal Report
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
انا بعمل برنامج وعايز استخدم فى التقارير crystal report بس عايز اعرض جدولين منفصلين فى تقرير واحد
والمشكلة فى الكود اللى بيدخل على العرض المفروض اكتب فيه جدول واحد
وانا عندى جدولين table1 و table2 اعمل ايه
كود :
Dim report As New CrystalReport1
 (report.SetDataSource (table1
اعمل View يتضمن Table1 و Table2
اعمل 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(StrSQLcn)
 
       Dim dt As New DataTable
        da
.Fill(dt)
 
       Return dt
    End 
Function
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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 
(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(StrSQLcn)
 
       Dim dt As New DataTable
        da
.Fill(dt)
 
       Return dt
    End 
Function
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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 اظبطهم ازاى