28-03-18, 04:12 PM
السلام عليكم
عندي كود لتحديث البيانات عند التعديل
والكود يعمل بشكل جيد
ولكن اردت التعديل علي خلية مع زيادة قيمة الخلية مباشرة مع عملية التعديل بقيمة من تيكست بوكس
يعني الخلية قيمتها بالداتا 100 وانا بعدل عايز اضيف 20قيمة اسندها الي التيكست بوكس الي قيمة الخلية عشان تبقي بعد التعديل 120
استخدمت الكود التالي ولكن لا يعمل يعطي نفس قيمة الخلية
الكود
حاولت ايضا باضافة رمز الجمع قبل التيكست المراد اضافة قيمتة للخلية
عندي كود لتحديث البيانات عند التعديل
والكود يعمل بشكل جيد
ولكن اردت التعديل علي خلية مع زيادة قيمة الخلية مباشرة مع عملية التعديل بقيمة من تيكست بوكس
يعني الخلية قيمتها بالداتا 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
حاولت ايضا باضافة رمز الجمع قبل التيكست المراد اضافة قيمتة للخلية