[عبـدالله]

جرب هذا التعديل

PHP كود :

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

    Dim dt As New DataTable

    Dim sql As String = "SELECT * FROM [Table1] WHERE ([Sex]=@sex) AND ([Birthday] BETWEEN @d1 AND @d2)" 
    Using da As New OleDbDataAdapter(sql, Con)
        da.SelectCommand.Parameters.AddWithValue("@sex", Me.ComboBox1.Text)
        da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
        da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
        da.Fill(dt)
        dgvList.DataSource = dt
    End Using

    Dim rep As New allReport1
    rep.SetDataSource(dt)

    CrystalReportViewer1.ReportSource = rep
    CrystalReportViewer1.Refresh()

End Sub