[المبرمج البسيط]

تم حل المشكله
هذا كود الحفظ

PHP كود :

On Error Resume Next
Dim S As Integer
If Text1.Text = "" Then
MsgBox "أدخل رقم الفاتورة", vbCritical, "رقم الفاتورة"
Exit Sub
End If

SQL = "Select * From sale where InvNo= ' " & Trim(Text1.Text) & "'"

                If RS.State = adStateOpen Then RS.Close
        RS.Open SQL, DB, adOpenKeyset, adLockPessimistic

With Grid

If RS.RecordCount < 1 Then
For S = 1 To .Rows - 1

       RS.AddNew
   RS!InvNo = Text1.Text
   RS!InvDate = DTPicker1
   RS!CutmrName = Combo1.Text

RS!Codeitem = .TextMatrix(S, 0)
RS!ItmName = .TextMatrix(S, 1)
RS!Price = .TextMatrix(S, 2)
RS!Qty = .TextMatrix(S, 3)
RS!amount = .TextMatrix(S, 4)

'++++
Next
MsgBox "تم حفظ الفاتورة بنجاح", vbInformation, "حفظ"
Label6.Caption = ""
Else
MsgBox "لم يتم الحفظ --- الفاتورة مسجله من قبل ", vbCritical, "خطأ"
End If
End With 


ممكن تعديل
لكن يقوم بحفظ اول سطر من الفلكس غريد فقط والباقي لا يقوم بحفظة


ممكن مساعده من الخبراء