[علاء الكبابي]

اريد ان يحدد العميل فترة لكل صنف اذا انقضت يرسل له البرنامج تنبيه بذلك
وبذلك فلكل صنف فترة مختلفة عن الاخر محفوظة في جدول الاصناف تحت اسم 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

في النهاية يظهر الاستعلام الاول في الداتا جريد الاولى سليم

ولا يظهر في الداتا جريد الثانية غير اسماء الجداول فقط ولا شئ تحتها