View Full Version : ارسال یک مقدار به کریستال ریپورت
Esmail-Sanaei
چهارشنبه 04 اردیبهشت 1387, 14:41 عصر
من می خوام از فرم برنامه ام یک مقدار به کریستال ریپورت بفرستم تا بعد چاپش کنم
چه دستوراتی رو باید اجرا کنم ؟ vb.net
Morteza_s
چهارشنبه 11 اردیبهشت 1387, 16:45 عصر
من برای ارسال یک یا چند پارامتر از برنامه به CrystalReport از این روش استفاده می کنم:
مثلآ اگر 3 تا Parameter Field در گزارشتان تعریف کرده باشید:
Dim Report1 As New CrystalReport1
Dim ParamFields As New ParameterFields
Dim Param1 As New ParameterField
Dim Param2 As New ParameterField
Dim Param3 As New ParameterField
Dim ParamValue1 As New ParameterValues
Dim ParamValue2 As New ParameterValues
Dim ParamValue3 As New ParameterValues
CrystalReportViewer1.ReportSource = Report1
Dim ParamDisValue1 As New ParameterDiscreteValue
Dim ParamDisValue2 As New ParameterDiscreteValue
Dim ParamDisValue3 As New ParameterDiscreteValue
ParamFields =CrystalReportViewer1.ParameterFieldInfo
Param1 = ParamFields(0)
Param2 = ParamFields(1)
Param3 = ParamFields(2)
ParamValue1 = Param1.CurrentValues
ParamValue2 = Param2.CurrentValues
ParamValue3 = Param3.CurrentValues
ParamDisValue1 = New ParameterDiscreteValue
ParamDisValue2 = New ParameterDiscreteValue
ParamDisValue3 = New ParameterDiscreteValue
ParamDisValue1.Value = TextBox1.Text
ParamDisValue2.Value = TextBox2.Text
ParamDisValue3.Value = TextBox3.Text
ParamValue1.Add(ParamDisValue1)
ParamValue2.Add(ParamDisValue2)
ParamValue3.Add(ParamDisValue3)
البته ممکن است روش های دیگری هم باشد
اما من در این روش به مشکلی بر نخوردم.
drwatson
جمعه 13 اردیبهشت 1387, 00:55 صبح
روش دوستمون اصولی است اما اگر حوصله دنگ و فنگ نداری
من پیشنهاد میدم یه جدول با یه فیلد بساز هرچی خواستی توش بریز راحتم نمایشش بده
البته این روش اصلا حرفه ای نیست ولی کارتو راه میندازه
sm
یک شنبه 15 اردیبهشت 1387, 11:15 صبح
از حداقل 3 روش ميشه اين كار رو انجام داد.
در اين مورد قبلا توضيح كاملي رو داده بودم.
موفق باشيد
saman_itc
دوشنبه 20 خرداد 1387, 14:42 عصر
میشه لینکشو بزارین آقای sm من سرچ کردم اما پیدا نکردم
ممنونم
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.