[محمد اسماعيل]

(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()

تحياتى لك

وتمنياتى لك التوفيق

تمام اخي الجوكر


كل الشكر والتوفيق