تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عندي أستفسـار حول تقرير كرستال ريبورت
#1
السـلام عليكم ورحمة الله وبركاته 

عندي أستفسارين في التقارير كرستال ريبورت
1- كيف أقدر أطبع التكست الموجود في التشك بكس إذا كانت مفعله وأضعه داخل التقرير (يمكن تحديد أكثر من تشك)

2- ماهي أفضل طريقه لجلب البيانات في التقرير من القاعده في السيرفر يوجد أسم مستخدم وكلمة مرور للقاعده وشكراً 


.zip   WindowsApplication5.zip (الحجم : 101.39 ك ب / التحميلات : 38)
الرد }}}
تم الشكر بواسطة:
#2
انشئ باراميتر في تقرير الكريستال ريبوت واسحبه الى داخل التقرير في المكان المناسب
واجعل ارتفاع الباراميتر يكفي لثلاث اسطر

هنا على افترضت ان اسم الباراميتر My Parameter
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   Dim report As New CrystalReport1

   Dim sb As New StringBuilder
   If CheckBox1.Checked = True Then sb.AppendLine(CheckBox1.Text)
   If CheckBox2.Checked = True Then sb.AppendLine(CheckBox2.Text)
   If CheckBox3.Checked = True Then sb.AppendLine(CheckBox3.Text)
   Dim s As String = sb.ToString
   report.SetParameterValue("My Parameter", s)

   Form2.CrystalReportViewer1.ReportSource = report
   Form2.CrystalReportViewer1.Zoom(80%)

   Form2.Show()

End Sub

لا أعرف أفضل طريقة، ولكن يمكن انشاء DataSet وربط التقرير به
مشروعك ليس فيه قاعدة بيانات أو حتى شيء داخل التقرير
ابحث هنا وستجد مواضيع كثيرة لعمل تقرير بقاعدة بيانات

إقتباس :اذا  أردت المساعدة من أي أحد لا تضع له مشروع فارغ
الرد }}}
تم الشكر بواسطة: طـلال
#3
يعطيني خطأ على المتغير STREING bILDER
الرد }}}
تم الشكر بواسطة:
#4
هذا ليس خطأ،

هو يريد منك إضافة إسم المكتبة System.Text بإحدى الطريقتين:
الأولى إضافة هذا السطر في أعلى الكود Imports System.Text
الأخرى إضافة إسم المكتبة قبل StringBuilder مثل Dim sb As New System.Text.StringBuilder

إختر إحداهما.

إقتباس :اذا  أردت المساعدة من أي أحد لا تضع له مشروع فارغ
الرد }}}
تم الشكر بواسطة:
#5
أستخدمت هذا الكود
كود :
       If CheckBox1.Checked = True Then
           report.SetParameterValue(0, "*   " + CheckBox1.Text)
       Else
           report.SetParameterValue(0, Nothing)

           If CheckBox2.Checked = True Then
               report.SetParameterValue(1, "*   " + CheckBox2.Text)
           Else
               report.SetParameterValue(1, Nothing)
               If CheckBox3.Checked = True Then
                   report.SetParameterValue(3, "*    " + CheckBox3.Text)
               Else
                   report.SetParameterValue(3, Nothing)
               End If
           End If
       End If


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#6
أشكركم أنتهت المشكله
والسبب هو أستخدام end if
في الأخير والمفترض أن بعد كل if لا بد أن يتنهي الشرط بـ end if

جماعة الخيـر 
أشلون أقوم بتعبئة تقرير من جدولين 

للأهميه لو سمحتو
الرد }}}
تم الشكر بواسطة:



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


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