+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عندي أستفسـار حول تقرير كرستال ريبورت (/showthread.php?tid=21918)
عندي أستفسـار حول تقرير كرستال ريبورت - طـلال - 28-09-17
السـلام عليكم ورحمة الله وبركاته
عندي أستفسارين في التقارير كرستال ريبورت
1- كيف أقدر أطبع التكست الموجود في التشك بكس إذا كانت مفعله وأضعه داخل التقرير (يمكن تحديد أكثر من تشك)
2- ماهي أفضل طريقه لجلب البيانات في التقرير من القاعده في السيرفر يوجد أسم مستخدم وكلمة مرور للقاعده وشكراً
[attachment=15566]
RE: عندي أستفسـار حول تقرير كرستال ريبورت - wale90 - 28-09-17
انشئ باراميتر في تقرير الكريستال ريبوت واسحبه الى داخل التقرير في المكان المناسب
واجعل ارتفاع الباراميتر يكفي لثلاث اسطر
هنا على افترضت ان اسم الباراميتر 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 وربط التقرير به
مشروعك ليس فيه قاعدة بيانات أو حتى شيء داخل التقرير
ابحث هنا وستجد مواضيع كثيرة لعمل تقرير بقاعدة بيانات
RE: عندي أستفسـار حول تقرير كرستال ريبورت - طـلال - 29-09-17
يعطيني خطأ على المتغير STREING bILDER
RE: عندي أستفسـار حول تقرير كرستال ريبورت - wale90 - 29-09-17
هذا ليس خطأ،
هو يريد منك إضافة إسم المكتبة System.Text بإحدى الطريقتين:
الأولى إضافة هذا السطر في أعلى الكود Imports System.Text
الأخرى إضافة إسم المكتبة قبل StringBuilder مثل Dim sb As New System.Text.StringBuilder
إختر إحداهما.
RE: عندي أستفسـار حول تقرير كرستال ريبورت - طـلال - 29-09-17
أستخدمت هذا الكود
كود :
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 IfRE: عندي أستفسـار حول تقرير كرستال ريبورت - طـلال - 29-09-17
أشكركم أنتهت المشكله
والسبب هو أستخدام end if
في الأخير والمفترض أن بعد كل if لا بد أن يتنهي الشرط بـ end if
جماعة الخيـر
أشلون أقوم بتعبئة تقرير من جدولين
للأهميه لو سمحتو