[HASAN6.0]

PHP كود :

Dim x As Integer = 0
        Dim result() As DataRow = Tabel1.Select("date1 = '" & Format(DateTimePicker1.Value.Date, "yyyy/MM/dd") & "'")
        For Each row As DataRow In result :             x += 1 :         Next
        MsgBox(x)