منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Dim cr1 As New ReportDocument
((( cr1.Load(Path.GetFullPath(Path.Combine(Application.StartupPath, "..\..\crystalreport2.rpt"

cr1.RecordSelectionFormula = "{erea.erea_num}= " & Val(ComboBox1.SelectedValue) & " and {dataa.date_project} in '" + DateTimePicker1.Value.ToString("yyyy,MM,dd") + "' to '" + DateTimePicker2.Value.ToString("yyyy,MM,dd") + "'"
CrystalReportViewer1.ReportSource = cr1
CrystalReportViewer1.RefreshReport()