[aftfm]

اخواني جزاكم الله الف خري توصلت لكود نقل بيانات من قاعدة البيانات اكسس الى الداتا قريد حسب المشاركة رقم 1

لكن واجهتني مشكلة في حالى ان السجل لبعض الاشخاص في يوم 1 فارغ وليس به بيانات لحقل المبلغ وفي يوم 2 يوجد بيانات لا يظهر في القريد.
إلا في حالة تعبة يوم 1 ولو برقم 0

هذا الكود

PHP كود :

Dim sql As String = " SELECT DISTINCT Customer_Name " & _
                    "   FROM Purchasing             " & _
                    "  WHERE Month(Listing_Date1) = " & Val(Me.lblMonth.Text)
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter(sql, Con)
        da.Fill(dt)
        If dt.Rows.Count > 0 Then
            If dt.Rows.Count + 1 > Me.DGVExp.Rows.Count Then Me.DGVExp.RowCount = dt.Rows.Count + 1
            For i = 0 To dt.Rows.Count - 1
                Me.DGVExp.Rows(i).Cells(0).Value = dt.Rows(i).Item("Customer_Name")
            Next
        End If
        Dim ST As String = ""
        For Each Row As DataGridViewRow In Me.DGVExp.Rows
            ST = Row.Cells(0).Value
            Con.Open()
            Dim cmd1 As New OleDbCommand("SELECT Amount_Pur FROM Purchasing WHERE Listing_Date1 = #" & Me.DTPDay1.Text & "# AND Customer_Name LIKE '" & ST & "'", Con)
            Dim cmd2 As New OleDbCommand("SELECT Amount_Pur FROM Purchasing WHERE Listing_Date1 = #" & Me.DTPDay2.Text & "# AND Customer_Name LIKE '" & ST & "'", Con)
            Dim cmd3 As New OleDbCommand("SELECT Amount_Pur FROM Purchasing WHERE Listing_Date1 = #" & Me.DTPDay3.Text & "# AND Customer_Name LIKE '" & ST & "'", Con)
            Dim cmd4 As New OleDbCommand("SELECT Amount_Pur FROM Purchasing WHERE Listing_Date1 = #" & Me.DTPDay4.Text & "# AND Customer_Name LIKE '" & ST & "'", Con)
            Try
                Row.Cells(1).Value = cmd1.ExecuteScalar.ToString
                Row.Cells(2).Value = cmd2.ExecuteScalar.ToString
                Row.Cells(3).Value = cmd3.ExecuteScalar.ToString
                Row.Cells(4).Value = cmd4.ExecuteScalar.ToString
            Catch ex As Exception
            End Try
            Con.Close()
        Next