[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته


الكود اللي انت استخدمته غريب

جرب هذا الكود

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 > Me.DGVExp.Rows.Count Then Me.DGVExp.RowCount = dt.Rows.Count

For i = 0 To dt.Rows.Count - 1
    Me.DGVExp.Rows(i).Cells(0).Value = dt.Rows(i).Item("Customer_Name")
Next 


السلام عليكم ورحمة الله وبركاته