11-05-19, 07:13 PM
(11-05-19, 02:51 PM)elgokr كتب :وعليكم السلام ورحمة الله وبركاته
فقط استخدم الكود بهذا الشكل
كود :
con.Open()
Dim DEBIT, BLANCE As Integer
For I = 0 To DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows.Count - 1
Dim comg As New OleDbCommand("UPDATE PARTENDETAILS_TB SET PARTENDETAILS_DEBIT=@PARTENDETAILS_DEBIT,PARTENDETAILS_BLANCE=@PARTENDETAILS_BLANCE WHERE PARTENDETAILS_ID = @PARTENDETAILS_ID", con)
DEBIT = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_DEBIT").ToString())
BLANCE = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_CREDIT").ToString()) - DEBIT
comg.Parameters.AddWithValue("@PARTENDETAILS_DEBIT", DEBIT.ToString())
comg.Parameters.AddWithValue("@PARTENDETAILS_BLANCE", BLANCE.ToString())
comg.Parameters.AddWithValue("@PARTENDETAILS_ID", Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_ID").ToString()))
comg.ExecuteNonQuery()
Next
con.Close()
تحياتى لكوتمنياتى لك التوفيق
تمام اخي الجوكر
كل الشكر والتوفيق

