السـلام عليكم ورحمة الله وبركاته
عندي أستفسارين في التقارير كرستال ريبورت
1- كيف أقدر أطبع التكست الموجود في التشك بكس إذا كانت مفعله وأضعه داخل التقرير (يمكن تحديد أكثر من تشك)
2- ماهي أفضل طريقه لجلب البيانات في التقرير من القاعده في السيرفر يوجد أسم مستخدم وكلمة مرور للقاعده وشكراً
[
attachment=15566]
انشئ باراميتر في تقرير الكريستال ريبوت واسحبه الى داخل التقرير في المكان المناسب
واجعل ارتفاع الباراميتر يكفي لثلاث اسطر
هنا على افترضت ان اسم الباراميتر 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 وربط التقرير به
مشروعك ليس فيه قاعدة بيانات أو حتى شيء داخل التقرير
ابحث
هنا وستجد مواضيع كثيرة لعمل تقرير بقاعدة بيانات
يعطيني خطأ على المتغير STREING bILDER
هذا ليس خطأ،
هو يريد منك إضافة إسم المكتبة System.Text بإحدى الطريقتين:
الأولى إضافة هذا السطر في أعلى الكود Imports System.Text
الأخرى إضافة إسم المكتبة قبل StringBuilder مثل Dim sb As New System.Text.StringBuilder
إختر إحداهما.
أشكركم أنتهت المشكله
والسبب هو أستخدام end if
في الأخير والمفترض أن بعد كل if لا بد أن يتنهي الشرط بـ end if
جماعة الخيـر
أشلون أقوم بتعبئة تقرير من جدولين
للأهميه لو سمحتو