(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