15-11-20, 08:02 AM
السلام عليكم
ما عندي الوقت لتطبيقها
سوف اشرحها وانت طبقها واتمنى تضبط معك
لو فرضنا ان هذا الكود لحفظ الاصناف في الفاتورة.
PHP كود :
On Error Resume Next
Dim i As Integer
If rs.State = 1 Then rs.Close
sql = "Select * From [Table2] where [n1] =" & MSFlexGrid1.TextMatrix(i, 3) & ""
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.EOF Then
For i = 1 To MSFlexGrid1.Rows - 1
rs.AddNew
rs![n1] = MSFlexGrid1.TextMatrix(i, 1)
rs![n2] = MSFlexGrid1.TextMatrix(i, 2)
rs![n3] = MSFlexGrid1.TextMatrix(i, 3)
rs.Update
''''''''''''''''في هذا السطر '''''''''''''''''''''''''
Next i
End If
بعد سطر rs.Update مباشر
عليك عمل كود يقوم
1- بالبحث عن الصنف المحفوظ في جدول الاصنفاف
2- تعديل الكمية في المخزون الى الكمية الجديدة.
بمعنى
الكمية السابقة - الكمية الحالية في الفاتورة (MSFlexGrid1.TextMatrix(i, 1)) = الكمية
الجديدة.
بالتوفيق
