[خالد كامل1]

(24-10-19, 03:12 PM)اسامه الهرماوي كتب : وعليكم السلام...
استخدم العمليات الحسابية كما تريد وبعدها اجعل كود للتعديل قبل الحذف.

انا فعلت كل هذا ولكن المشكله انه يغير فقط المورد رقم 1 وايضا يجمع العمود ويضيفه على نفس كود الشركه رقم واحد سوف اريك الكود الذى استعمله 

كود :

Sub add_company()
       Dim r As Double


       If dgv_BOLESA.CurrentRow.Index Then

           r = Val(dgv_BOLESA.CurrentRow.Cells(10).Value) + Val(dgv_BOLESA.CurrentRow.Cells(9).Value)
           Dim cmdzqty As New OleDbCommand
           With cmdzqty
               .Connection = con
               .CommandType = CommandType.Text
               .CommandText = " Update companyS set rased_company = rased_company + " & r & "  where  COMPANY_code =@company_code"
               .Parameters.Add(New OleDb.OleDbParameter("@company_code", OleDb.OleDbType.VarChar)).Value = dgv_BOLESA.CurrentRow.Cells(13).Value

           End With
           If con.State = 1 Then con.Close()
           con.Open()
           cmdzqty.ExecuteNonQuery()
           con.Close()
       End If
   End Sub