30-08-20, 10:46 AM
كان هناك موضوع مشابه بالامس : http://vb4arb.com/vb/showthread.php?tid=36253
ولكنه كان يريد تنبيه عند 7 ايام اعتقد اذا عدلناها ل 90 يوم نحصل على النتيجة المطلوبة :
في حدث اللود في الفورم :
عدل documents الى اسم جدول الوثائق وكذلك DueDate الى اسم عمود تواريخ الانتهاء
وراجع ايضا اجابات الاساتذه الافاضل في المشاركة التي رابطها بالاعلى فهي مفيدة جدا
ولكنه كان يريد تنبيه عند 7 ايام اعتقد اذا عدلناها ل 90 يوم نحصل على النتيجة المطلوبة :
في حدث اللود في الفورم :
كود :
Dim query As String = "SELECT * FROM documents
WHERE CAST(DueDate AS date) <= CAST(DATEADD(day,90, GETDATE()) AS date)
AND CAST(DueDate AS date) >= CAST(getdate() AS date)"
Dim cmd As New SqlCommand(query, conn)
Dim sda As New SqlDataAdapter(cmd)
Dim dt As New DataTable
Dim RowCount As Integer
conn.Open()
RowCount = sda.Fill(dt)
conn.Close()
If RowCount > 0 Then
'عرض تفاصيل الوثائق
DataGridView1.DataSource = dt
End Ifعدل documents الى اسم جدول الوثائق وكذلك DueDate الى اسم عمود تواريخ الانتهاء
وراجع ايضا اجابات الاساتذه الافاضل في المشاركة التي رابطها بالاعلى فهي مفيدة جدا

