[ahmed201]

(20-11-20, 06:15 AM)sendbad100 كتب : السلام عليكم


تاكد من التالي:-
1- ان  العمود الاول   (MSFlexGrid1.TextMatrix(I, 0)   تحتوي على  ID   المخصص للصنف. حسب الاستعلام يعتبر نص.
2- ان العمود الرابع (MSFlexGrid1.TextMatrix(I, 3)  يحتوي على الكمية  المباعة.


شيك على الاقواس ()  او الاخطاء الاملائية  لاني كتبته بسرعة بدون تدقيق ومراجعة نظرا لضيق الوقت.


[b]جرب التالي  اذا كان حقل id  نص في قاعدة البينات.[/b]

PHP كود :

For I = 1 To MSFlexGrid1.Rows - 1

If RS.State = adStateOpen Then RS.Close

sql = "SELECT * FROM [Table1] WHERE [id]='" & Trim(MSFlexGrid1.TextMatrix(I, 0)) & "'"
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then

RS..MoveFirst

 RS![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I, 3)))
DoEvents
RS.Update
End If
Next 


او التالي اذا كان id رقم في قاعدة البينات

PHP كود :

For I = 1 To MSFlexGrid1.Rows - 1

If RS.State = adStateOpen Then RS.Close

sql = "SELECT * FROM [Table1] WHERE [id]=" & Trim(MSFlexGrid1.TextMatrix(I, 0))
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then

RS..MoveFirst

 RS![n2] = RS![n2] - Val( Trim$( MSFlexGrid1.TextMatrix(I, 3)))
DoEvents
RS.Update
End If
Next 


كود شغل اخي الغالي جزاك الله الف خير وبارك الله فيك

---

(20-11-20, 06:15 AM)sendbad100 كتب : السلام عليكم


تاكد من التالي:-
1- ان  العمود الاول   (MSFlexGrid1.TextMatrix(I, 0)   تحتوي على  ID   المخصص للصنف. حسب الاستعلام يعتبر نص.
2- ان العمود الرابع (MSFlexGrid1.TextMatrix(I, 3)  يحتوي على الكمية  المباعة.


شيك على الاقواس ()  او الاخطاء الاملائية  لاني كتبته بسرعة بدون تدقيق ومراجعة نظرا لضيق الوقت.


[b]جرب التالي  اذا كان حقل id  نص في قاعدة البينات.[/b]

PHP كود :

For I = 1 To MSFlexGrid1.Rows - 1

If RS.State = adStateOpen Then RS.Close

sql = "SELECT * FROM [Table1] WHERE [id]='" & Trim(MSFlexGrid1.TextMatrix(I, 0)) & "'"
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then

RS..MoveFirst

 RS![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I, 3)))
DoEvents
RS.Update
End If
Next 


او التالي اذا كان id رقم في قاعدة البينات

PHP كود :

For I = 1 To MSFlexGrid1.Rows - 1

If RS.State = adStateOpen Then RS.Close

sql = "SELECT * FROM [Table1] WHERE [id]=" & Trim(MSFlexGrid1.TextMatrix(I, 0))
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then

RS..MoveFirst

 RS![n2] = RS![n2] - Val( Trim$( MSFlexGrid1.TextMatrix(I, 3)))
DoEvents
RS.Update
End If
Next 


اخي الغالي ممكن كود الحذف من قاعدة البيانات MSFlexGrid1