بســم الله الـرحمــن الرحيــم
اخوتي لقد قمت بربط قاعدة بيانات بفيجوال بيزك بطريقة ADO ثم قمت بعد دلك بوضع اداة MSHFlexGrid1 وربطتها بقاعدة البيانات ودلك حتى ادا ضغط المستخدم على ايقونة اضف يظهر له في جدول اداة MSHFlexGrid1 العنصر الدي اضافه وان قام بالعكس يحدث الحذف اي ادا ضغط على زر احدف الا انه وضعت text يمثل الرقم الترتيبي حيث ادا قام المستخدم بالضغط على ايقونة اضف يتم اضافة واحد بطريقة تلقائية لخانة الرقم الترتيبي ولقد نجح الامر الا انه بالنسبة لزر احدف عندما يضغط المستخدم على ايقونة احدف فان عملية الحدف تتم بنجاح كدلك عملية طرح 1 من خانة الرقم الترتيبي هي الاخرى تتم بنجاح المشكل فقط هو ان في جدول الاداة MSHFlexGrid1 لا يطرء تغير على خانة الرقم التريبي وتبقى كما هي مثلا لو اردت اضافة ثلاث عناصر 1و2و3 بهدا الترتيب ثم قمت بمسح العنصر 2 فان العنصر 3 يصبح 2 في خانة الرقم الترتيبي الا انه في الجدول يبقى 3 فهل من حل مع العلم ان الكود الدي استعملته هو
On Error Resume Next
Adodc1.Recordset.Delete
Adodc1.Recordset.Delete
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveNext
ElseIf Not Adodc1.Recordset.BOF Then
Adodc1.Recordset.MovePrevious
End If
Set MSHFlexGrid1.DataSource = Adodc1
Text1.Text = Adodc1.Recordset.RecordCount
المرجو المساعدة وشكراااااااااا