kostyaVFPigorbik, этот файл "Tabl.dbf" из рабочей проги. Созданные юзером записи будут нумероваться. Поле для нумерации Ndoc. Смутно припоминаю, вроде както с replase заменить Ndoc<0 c с учетом всех строк +1 после каждой. Нужена однако счетчик придумывать, а как?
Ну, предположим, у Вас отображено 5 записей пронумерованных, соответственно, от 1 до 5. Теперь Вы хотите удалить запись, скажем, с номером 3. У Вас остались номера: 1, 2, 4, 5. Чтобы снова сделать непрерывную нумерацию необходимо в записях, номер которых больше, чем номер у удаляемой записи (4 и 5) уменьшить номер на 1. Вот, собственно, этот алгоритм и реализуется
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
* Где-то в главном (стартовом) файле должна быть сделана глобальная настройка
SET DELETED ON
* Собственно код удаления
* Перед удалением записи запоминаем ее порядковый номер
lnNDoc = MyTable.Ndoc
* Удаление записи
select MyTable
delete
* Перенумерация записей, с номерами больше удаленной
replace for Ndoc > m.lnNDoc ;
NDoc with NDoc - 1
* Перехожу на первую запись
go top
