تقييم الموضوع :
  • 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 اظبطهم ازاى
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود لطباعة Report viewer تلقائيا مجرد م اقوم بفتح النافذه يتم وضع الكود بال Load mohamedgadain61 16 471 منذ 24 دقيقة مضت
آخر رد: حريف برمجة
Smile [سؤال] استفسار طريقة لدمج ملف تنفيذي exe يتفعل ب سريال AMINOX 2 66 منذ 5 ساعة مضت
آخر رد: AMINOX
Smile [VB.NET] استفسار بخصوص تصميم برنامج علي المتصفح mazentq 2 49 , 04:42 PM
آخر رد: mazentq
  [نقاش] استفسار عن فكرة برنامج mohamedahmed1 7 173 14-03-20, 02:18 PM
آخر رد: mohamedahmed1
Exclamation استفسار عن حل لمشكلة devexpress gridcontrol bilalhussein 1 81 14-03-20, 01:56 AM
آخر رد: bilalhussein
  استفسار حول الوضع المتصل والمنفصل في ربط SQL مع VB.Net biloo20 3 3,630 05-03-20, 10:24 PM
آخر رد: AhmedSuror
  استفسار عن طريقة برمجة الرسوم الشهرية imam_boune 3 140 01-03-20, 01:20 AM
آخر رد: alsalamoni
  استفسار عن فكرة برمجية imam_boune 5 202 28-02-20, 03:43 PM
آخر رد: imam_boune
  استفسار حول جدول تخرج طالب imam_boune 2 104 25-02-20, 11:34 PM
آخر رد: imam_boune
  [VB.NET] التحكم في textobejct في Crystal Report tahaayyoub 1 75 25-02-20, 01:20 AM
آخر رد: boudyonline

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


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