[خالد كامل1]

احبتى بارك الله لكم فى كل ما تتمنوا وتحبوا
فى فاتوره المشتريات وعند حفظ الفاتوره يجب ان تضاف الكميه المشتراه من الصمف الى المخزن 
الكود يعمل تمام وصح ولكن ان اشتريت اكثر من صنف فى الفاتوره لا يضيف الا الصنف الاةل فى الفاتوره وباقى الصناف لا تضاف كميتها
وهذا هو الكود الذى استعمله

كود :

Sub ADDkama()
       Dim R As Integer = Val(dgvBUYKAMA.CurrentRow.Cells(2).Value)

       Dim cmdmaden As New OleDbCommand
       With cmdmaden
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = " Update KHAMAT set khamarasedopen= khamarasedopen +" & R & "  where khamacode ='" & dgvBUYKAMA.CurrentRow.Cells(0).Value & "'"

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

فاين الخطأ فى الكود

[asemshahen5]

جرب هذا الكود :

PHP كود :

   Sub ADDkama()
        Dim cmdmaden As New OleDbCommand
        For i = 0 To dgvBUYKAMA.Rows.Count - 1
            Dim R As Integer = Val(dgvBUYKAMA.Rows(i).Cells(2).Value)
            With cmdmaden
                .Connection = con
                .CommandType = CommandType.Text
                .CommandText = " Update KHAMAT set khamarasedopen= khamarasedopen +" & R & "  where khamacode ='" & dgvBUYKAMA.Rows(i).Cells(0).Value & "'"
            End With
            If con.State = 1 Then con.Close()
            con.Open()
            cmdmaden.ExecuteNonQuery()
            con.Close()
        Next
    End Sub 


[خالد كامل1]

(31-08-19, 08:56 PM)asemshahen5 كتب : جرب هذا الكود :

PHP كود :

   Sub ADDkama()
        Dim cmdmaden As New OleDbCommand
        For i = 0 To dgvBUYKAMA.Rows.Count - 1
            Dim R As Integer = Val(dgvBUYKAMA.Rows(i).Cells(2).Value)
            With cmdmaden
                .Connection = con
                .CommandType = CommandType.Text
                .CommandText = " Update KHAMAT set khamarasedopen= khamarasedopen +" & R & "  where khamacode ='" & dgvBUYKAMA.Rows(i).Cells(0).Value & "'"
            End With
            If con.State = 1 Then con.Close()
            con.Open()
            cmdmaden.ExecuteNonQuery()
            con.Close()
        Next
    End Sub 


الله يفتح عليك اخى الكريم ولكن ممكن اسال اين كان الخطأ فى الكود الاول ولك جزيل الشكر

[asemshahen5]

لم يكن عندك خطا لكنك تعدل على السجل المحدد و ليس على كل السجلات الموجودة في الداتا غريد .

موفق انشاء الله .