منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عندى مشكله فى اضافه الكميه المشتراه فى الرصيد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
احبتى بارك الله لكم فى كل ما تتمنوا وتحبوا
فى فاتوره المشتريات وعند حفظ الفاتوره يجب ان تضاف الكميه المشتراه من الصمف الى المخزن 
الكود يعمل تمام وصح ولكن ان اشتريت اكثر من صنف فى الفاتوره لا يضيف الا الصنف الاةل فى الفاتوره وباقى الصناف لا تضاف كميتها
وهذا هو الكود الذى استعمله
كود :
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()
فاين الخطأ فى الكود
جرب هذا الكود :

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 +" "  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 
(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 +" "  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 

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

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