تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار عن Crystal Report
#1
انا بعمل برنامج وعايز استخدم فى التقارير crystal report بس عايز اعرض جدولين منفصلين فى تقرير واحد
والمشكلة فى الكود اللى بيدخل على العرض المفروض اكتب فيه جدول واحد
وانا عندى جدولين table1 و table2 اعمل ايه
كود :
Dim report As New CrystalReport1
 (report.SetDataSource (table1
الرد
تم الشكر بواسطة:
#2
اعمل View يتضمن Table1 و Table2
الرد
تم الشكر بواسطة: baha , عبد العزيز البسكري , asemshahen5
#3
اعمل 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 
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#4
(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 اظبطهم ازاى
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم