07-02-16, 10:55 PM
بسم الله الرحمن الرحيم
ارجو ان تستفيدو من هذا الكود
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