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

بعد محاولات كتير ده الكود النهائي للي ممكن يحتاجه

        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

        Dim dttt As New DataTable

        dttt.Columns.Add("اسم الصنف")

        dttt.Columns.Add("تاريخ اخر بيع")

        DataGridView2.DataSource = dttt

        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 daaa As New OleDbDataAdapter

            Dim dtt As New DataTable

            Dim dtttt As New DataTable

            daa = New OleDbDataAdapter("select * from orders_d where cod = '" & z & "' and order_date < # " & Today.AddDays(-x) & " # ", con)

            daaa = New OleDbDataAdapter("select * from orders_d where cod = '" & z & "' and order_date > # " & Today.AddDays(-x) & " # ", con)

            daaa.Fill(dtttt)

            daa.Fill(dtt)

            If dtttt.Rows.Count > 0 Then

                If dtttt.Rows(0)(0) = dtt.Rows(0)(0) Then

                    'dtt.Clear()

                    'dtttt.Clear()

                Else

                    dtt.Clear()

                End If

            End If

            If dtt.Rows.Count > 0 Then

                Dim last As Integer = dtt.Rows.Count - 1

                Dim row As DataRow = dttt.NewRow

                row(0) = dtt.Rows(last)(2)

                row(1) = dtt.Rows(last)(6)

                dttt.Rows.Add(row)

                DataGridView2.DataSource = dttt

            End If

        Next