[alma_fandi]

مثال  

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)
    End Using

    dgvList.DataSource = dt


    Dim rep As New allReport1

    rep.SetDataSource(dt)
   
    CrystalReportViewer1.ReportSource = rep
    CrystalReportViewer1.Refresh()

End Sub 


منقول من  استاذي  عبدالله