[Sajad]

السلام عليكم

اولا: هذه متغيرات عامة

PHP كود :

Private table As New DataTable()
    Dim adpt As New OleDbDataAdapter()
    Dim pos As Integer 


حيث الpos يمثل موقع الحقل

ثانيا: هذا الكود في زر الاتصال

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 


ثالثا: هذا الكود لزر التعديل

PHP كود :

Dim r As DataRow
        r = table.Rows(pos)
        r("group1")=r("group1")+القيمة الجديدة
        adpt.Update(table) 


بالتوفيق ان شاءالله