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

السلام عليكم

عندي كود لتحديث البيانات عند التعديل

والكود يعمل بشكل جيد

ولكن اردت التعديل علي خلية مع زيادة قيمة الخلية مباشرة مع عملية التعديل بقيمة من تيكست بوكس

يعني الخلية قيمتها بالداتا 100  وانا بعدل عايز اضيف 20قيمة اسندها الي التيكست بوكس  الي قيمة الخلية  عشان تبقي بعد التعديل 120

استخدمت الكود التالي ولكن لا يعمل يعطي نفس قيمة الخلية

الكود

كود :

Sub updatd()
       PURCH_.con.Open()
       Dim Sav As New OleDb.OleDbCommand
       Sav.Connection = PURCH_.con
       Sav.CommandType = CommandType.Text
       Sav.CommandText = "UPDATE TBPURCH_ SET  TBPURCH_.NUM_TBPURCH += '" & _
      NUMTYPE_.Text & "' , TBPURCH_.TOTA_TBPURCH += '" & _
        TOTAPURCH_.Text & "' where ID_TBPURCH LIKE '" & _
       IDTEXT_.Text & "'"

       Sav.ExecuteNonQuery()
       Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM TBPURCH_ Order By ID_TBPURCH", con)

       If PURCH_.con.State = ConnectionState.Open Then
           PURCH_.con.Close()
       End If
   End Sub

حاولت ايضا باضافة رمز الجمع قبل التيكست المراد اضافة قيمتة للخلية