[مساعدة]

السلام عليكم

تفضل الكود

كود :

'مواعيد اليوم
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    Dim id As Integer = (
      From x In Me.DeerDataSet.sm
      Where x._date.ToString("yyyy/MM/dd") = Now.Date.ToString("yyyy/MM/dd")
      Select CInt(x.id)
      ).FirstOrDefault

    Me.SmBindingSource.Filter = "[ID] = " & id

End Sub


'مواعيد غداً
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

    Dim id As Integer = (
      From x In Me.DeerDataSet.sm
      Where x._date.ToString("yyyy/MM/dd") = Now.Date.AddDays(1).ToString("yyyy/MM/dd")
      Select CInt(x.id)
      ).FirstOrDefault

    Me.SmBindingSource.Filter = "[ID] = " & id

End Sub


'مواعيد بعد سبعة أيام
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

    Dim ids() As Integer = (
      From x In Me.DeerDataSet.sm
      Where x._date.ToString("yyyy/MM/dd") >= Now.Date.AddDays(7).ToString("yyyy/MM/dd") And
            x._date.ToString("yyyy/MM/dd") < Now.Date.AddDays(14).ToString("yyyy/MM/dd")
      Select CInt(x.id)
      ).ToArray

    Me.SmBindingSource.Filter = "[ID] IN(" & String.Join(",", ids) & ") "

End Sub

'الكل
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    Me.SmBindingSource.Filter = Nothing
End Sub