31-07-2014, 10:07 AM
السلام عليكم و رحمة الله تعالى و بركاته
صحيح اخي لقد لقيت نفس المشكلة .... و لقد و جدت الحل
و هذا الحل من استنتاجي فقط ممكن انني مخطأ
اصل المشكلة هي في الصف المحدد اي التحديد
كل ما عليك هو نقل التحديد الى الصف الاخير
و لقد قمت بفعل التالي
و الآن قم بالاضافة او الحذف و ان شاء الله لن تجد مشكلة
صحيح اخي لقد لقيت نفس المشكلة .... و لقد و جدت الحل

و هذا الحل من استنتاجي فقط ممكن انني مخطأ
اصل المشكلة هي في الصف المحدد اي التحديد
كل ما عليك هو نقل التحديد الى الصف الاخير
و لقد قمت بفعل التالي
كود :
procedure TForm1.ABSTable1AfterDelete(DataSet: TDataSet);
begin
ABSTable1.Last ;
end;
-------------------------------------------------------
procedure TForm1.ABSTable1AfterPost(DataSet: TDataSet);
begin
ABSTable1.Last ;
end;
-----------------------------------------------------------
procedure TForm1.ABSTable1BeforeInsert(DataSet: TDataSet);
begin
ABSTable1.Last ;
end;
-------------------------------------------------------------
procedure TForm1.ABSTable1BeforePost(DataSet: TDataSet);
begin
DBGrid1.SelectedIndex := ABSTable1.RecNo ;
end;و الآن قم بالاضافة او الحذف و ان شاء الله لن تجد مشكلة

