[طالب برمجة]

PHP كود :

Private Sub B2DatesFind_Btn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles B2DatesFind_Btn.Click

    Dim clmns As New List(Of String)
    If CheckBox1.Checked Then clmns.Add("Date")
    If CheckBox2.Checked Then clmns.Add("Value1")
    If CheckBox3.Checked Then clmns.Add("Value2")
    If CheckBox4.Checked Then clmns.Add("Value3")

    Dim c As String = " * "
    If clmns.Count > 0 Then c = String.Join(",", clmns)

    Dim dtp1 As Date = DateTimePicker_from.Value
    Dim dtp2 As Date = DateTimePicker_to.Value
    da = New OleDbDataAdapter("Select " & c & " from AAA where Date >= #" & dtp1.Year & "/" & dtp1.Month & "/" & dtp1.Day & "# and Date <= #" & dtp2.Year & "/" & dtp2.Month & "/" & dtp2.Day & "# order by Date ", Conn)
    dt = New DataTable
    da.Fill(dt)
    DataGridView1.DataSource = dt

End Sub