[alsalamoni]

(24-02-20, 12:05 AM)عبد العزيز البسكري كتب :

تفضّل أخي الكريم .. الملف بالمرفقات و به التعديلات الجديدة

فقط لو سمحت .. هل من الممكن يكون لديك إختصار للكود أفضل

بارك الله فيك
إخفاء التاكسات من صفحة الكريستال ريبورت.rar

هذا ما يمكنني من اختصاره

كود :

Imports CrystalDecisions.CrystalReports.Engine

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Rpt As New Crystal1

        Dim TextObject1 As TextObject = Rpt.Section2.ReportObjects("Text1")
        TextObject1.Text = Me.TextBox1.Text
        If TextBox1.Text = "" Then
            TextObject1.ObjectFormat.EnableSuppress = True
        Else
            TextObject1.ObjectFormat.EnableSuppress = False
        End If

        Dim TextObject2 As TextObject = Rpt.Section2.ReportObjects("Text2")
        TextObject2.Text = Me.TextBox2.Text
        If TextBox2.Text = "" Then
            TextObject2.ObjectFormat.EnableSuppress = True
        Else
            TextObject2.ObjectFormat.EnableSuppress = False
        End If

        Dim TextObject3 As TextObject = Rpt.Section2.ReportObjects("Text3")
        TextObject3.Text = Me.TextBox3.Text
        If TextBox3.Text = "" Then
            TextObject3.ObjectFormat.EnableSuppress = True
        Else
            TextObject3.ObjectFormat.EnableSuppress = False
        End If

        Dim Frm As New Form2
        Frm.CrystalReportViewer1.ReportSource = Rpt
        Frm.CrystalReportViewer1.ToolPanelView = CrystalDecisions.Windows.Forms.ToolPanelViewType.None
        Frm.CrystalReportViewer1.Zoom(2)
        Frm.ShowDialog()

    End Sub

End Class

---

لا تحتاج Refresh في CrystalReportViewer مثل ReportViewer