[momiana1]

أخي raoe-041 أشكرك جزيل الشكر على المساعدة

الكود عندما وضعته ظهر لي خطأ ( Table1 ) غير معرفة
فقمت بإضافة اسم قاعدة البيانات قبلها ومشى الحال وتم التخزين في قاعدة البيانات
ولكن حدث أمر بسيط وهو عند الضغط على الحفظ سجل جديد يظهر قيمة ID = 1 لكل السجلات الجديدة في الفورم
أما في قاعدة البيانات فالتسلسل مرتب بصورة صحيحة ،،،
هذا الكود بعد التعديل عليه

كود :

Dim max As Integer
           For counter As Integer = 0 To PLYDataSet1.Table1.Rows.Count - 1
               If PLYDataSet1.Table1.Rows(counter).Item("ID") > max Then
                   max = CInt(PLYDataSet1.Table1.Rows(counter).Item("ID"))

               End If

           Next

           IDTextBox.Text = CStr(max + 1)