[كود] كود ربط الكرستال ريبورت - نسخة قابلة للطباعة

PHP كود :

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

        Dim cr1 As New CrystalReport1, cri As String

         'هذا لفلترة التقرير غن طريق الرقم
        cri = " { TB1.filde1}='" & TextBox1.Text & '"

          'هذا لفلترة التقرير غن طريق التاريخ
        cri = "{ TB1.filde2}=#" & Format(DateTimePicker1.Value.Date, "MM/dd/yyyy") & "# "

        Dim t1 As CrystalDecisions.CrystalReports.Engine.Tables
        Dim t2 As CrystalDecisions.CrystalReports.Engine.Table
        t1 = cr1.Database.Tables
        For Each t2 In t1
            t2.Location = Application.StartupPath & "\data.mdb"
        Next
        PrintCrytal.CrystalReportViewer1.SelectionFormula = cri
        PrintCrytal.CrystalReportViewer1.ReportSource = cr1

    End Sub
End Class 