[hatem555]

استفسار بخصوص الطباعة بالكريستال ريبورت
انا عملت برنامج والحمد لله خلصته
لحد الطباعة
انا عملت الطباعة بالكريستال ريبورت
خليت البرنامج يطبع محتويات الداتا جريد فيو بالكود ده
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 الموجودة في الفورم