منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - استفسار بخصوص الطباعة بالكريستال ريبورت

استفسار بخصوص الطباعة بالكريستال ريبورت
انا عملت برنامج والحمد لله خلصته
لحد الطباعة
انا عملت الطباعة بالكريستال ريبورت
خليت البرنامج يطبع محتويات الداتا جريد فيو بالكود ده
Dim reportdoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
reportdoc = New CrystalReport12
reportdoc.SetDataSource(dt)
Form3.CrystalReportViewer1.ReportSource = reportdoc
Form3.Show()
Form3.Refresh()

انا محتاج اضيف في صفحة الكريستال ريبورت(الطباعة)
محتويات صندوق نص
اتمني تفيدونا

إذا كان قصدك جلب محتويات صندوق النص textbox من الفورم .. وليس من قاعدة البيانات

أولاً ضع قيمة باريميتر في التقرير وليكن بأسم al3zabe ثم أسحببه في التقرير .

بعد ذلك في كود الطباعة

كود :

 Dim ParamValue As New CrystalDecisions.Shared.ParameterValues()

        Dim ParamName As New CrystalDecisions.Shared.ParameterDiscreteValue()

        ParamName.Value = TextBoxX1.Text

        ParamValue.Add(ParamName)

        rpt.DataDefinition.ParameterFields("al3zabe").ApplyCurrentValues(ParamValue)

حيث يقوم بأخذ القيمة المدخلة من قبل المسستخدم في TextBoxX1.Text الموجودة في الفورم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

hatem555

العزابي