16-05-21, 04:35 PM
(آخر تعديل لهذه المشاركة : 20-05-21, 03:23 PM {2} بواسطة علاء الكبابي.)
اريد ان يحدد العميل فترة لكل صنف اذا انقضت يرسل له البرنامج تنبيه بذلك
وبذلك فلكل صنف فترة مختلفة عن الاخر محفوظة في جدول الاصناف تحت اسم stagnation
واستعملت هذا الكود للاستعلام
وبذلك فلكل صنف فترة مختلفة عن الاخر محفوظة في جدول الاصناف تحت اسم stagnation
واستعملت هذا الكود للاستعلام
Private Sub FlatButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton1.Click
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=small cashier.accdb")
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
da = New OleDbDataAdapter("select * from items where store > 0 and stagnation <> 0 ", con)
da.Fill(dt)
con.Open()
If dt.Rows.Count > 0 Then
DataGridView1.DataSource = dt
Else
Return
End If
Dim x As Integer
Dim z As String
For i As Integer = 0 To DataGridView1.Rows.Count - 1
x = DataGridView1.Rows(i).Cells(13).Value
z = DataGridView1.Rows(i).Cells(1).Value
Dim daa As New OleDbDataAdapter
Dim dtt As New DataTable
daa = New OleDbDataAdapter("select iname_o, order_date from orders_d where cod = " & z & " and order_date < # " & today.addDays(-x) & " # ", con)
If dtt.Rows.Count = 0 Then
daa.Fill(dtt)
DataGridView2.DataSource = dtt
Else
Dim row As DataRow = dtt.NewRow
row(0) = dtt.Rows(0)(0)
row(1) = dtt.Rows(0)(1)
dtt.Rows.Add(row)
DataGridView2.DataSource = dtt
End If
Next
MsgBox("تم")
End Sub
في النهاية يظهر الاستعلام الاول في الداتا جريد الاولى سليم
ولا يظهر في الداتا جريد الثانية غير اسماء الجداول فقط ولا شئ تحتها