صالح الشنطى كتب :[COLOR="#0000FF"]السلام عليكم
شكرا اخى العزيز على الاهتمام
وارجو ان تتحملنى قليلا
جربت الكود ولكنه لم يشتغل معى
حاولت ان اغير فى الكود قليلا ووضعتبعض الاكواد فى لوب
فشتغل الكود ولم يعطى خطاء ولكنة لم يقوم بالتعديل المطلوب
فياريت المساعدة لو تكرمت[/COLOR]PHP كود :
Dim sql As String = "update arshef set group1=@group1,subgroup1=@subgroup1 where ser>100"
If cn.State = ConnectionState.Closed Then cn.Open()
Dim cmd As New OleDbCommand(sql, cn)
cmd.Parameters.Add("@group1", OleDbType.Integer, 4, "group1")
adpt.UpdateCommand = cmd
Dim i As Integer
Dim r As DataRow
For i = 0 To table.Rows.Count - 1
r = table.Rows(i)
r("group1") = r("group1") + 30
adpt.Update(table)
Next
MsgBox("تم الادخال", MsgBoxStyle.DefaultButton1, "تجربة كود")
وعليكم السلام اخي العزيز
حاول ان تضع هذا الكود في زر اخر سمه زر التعديل واضف table.AcceptChanges() قبل adpt.Update(table)
PHP كود :
Dim i As Integer
Dim r As DataRow
For i = 0 To table.Rows.Count - 1
r = table.Rows(i)
r("group1") = r("group1") + 30
table.AcceptChanges()
adpt.Update(table)
Next
MsgBox("تم الادخال", MsgBoxStyle.DefaultButton1, "تجربة كود")
