السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم السلموني على المساعدة
الرجاء فضل و ليس أمر .. تطبيق ما ذكرته بهذا المثال لأني فعلا لم أستوعب الفكرة
فقط للتوضيح : التقرير ليس له أي علاقة بقاعدة البيانات
بارك الله فيك
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء و أنعم عليك بطيبات الدنيا و الآخرة و أحسن إليك أخي الغالي السلموني
وجع دماغ .. وانزاح بفضل الله ثم بفضلك
لأني بحثت بكل مكان و لم أجد الحل و ها قد جاء الفرج بفضل من الله و منك
تم تطبيق ما ذكرته بنجاح و إيجاد الكيفية و الحمد لله
إذا ارتأيت أي تعديلات أخي الغالي .. أخبرني لو سمحت
كود :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Rpt As New Crystal1
If TextBox1.Text = "" Then Rpt.ReportDefinition.Sections("Section2").ReportObjects("Text1").ObjectFormat.EnableSuppress = True
If TextBox2.Text = "" Then Rpt.ReportDefinition.Sections("Section2").ReportObjects("Text2").ObjectFormat.EnableSuppress = True
If TextBox3.Text = "" Then Rpt.ReportDefinition.Sections("Section2").ReportObjects("Text3").ObjectFormat.EnableSuppress = True
Dim TextObject1 As CrystalDecisions.CrystalReports.Engine.TextObject = Rpt.ReportDefinition.Sections("Section2").ReportObjects("Text1")
TextObject1.Text = Me.TextBox1.Text
Dim TextObject2 As CrystalDecisions.CrystalReports.Engine.TextObject = Rpt.ReportDefinition.Sections("Section2").ReportObjects("Text2")
TextObject2.Text = Me.TextBox2.Text
Dim TextObject3 As CrystalDecisions.CrystalReports.Engine.TextObject = Rpt.ReportDefinition.Sections("Section2").ReportObjects("Text3")
TextObject3.Text = Me.TextBox3.Text
Dim Frm As New Form2
Frm.CrystalReportViewer1.ReportSource = Rpt
Frm.CrystalReportViewer1.Zoom(100%)
Frm.CrystalReportViewer1.Refresh()
Frm.ShowDialog()
End Sub
End Class
تحياتي وتقييماتي