FoxPro

[Alex_Pioner]

Привет, помогите пожалуйста!!!
Создал базу в Visual FoxPro, на форме добавления новой записи в таблицу есть кнопка "Добавить" к не нужно сделать обработчик Click чтобы id увеличивался автоматически на один т.е. если был 3 при добавлении стал 4.

[Cannibal]

сейчас фокса под рукой нет, но если мне не изменяет память, то при создании теблицы (или по Modify Structure)можно сделать одно поле с автоматическим заполнением.

[Alex_Pioner]

Я так пробовал чет не получилось)))

[Stilet]

Так и есть

[Alex_Pioner]

У меня FoxPro 6.0 к сожалению там такого типа нету((((((((

[Cannibal]

тогда более извращенный способ (так как больше ничего на ум не приходит)
1. найти максимальное значение в этом поле (либо селектом, либо с помощью индексирования) и записать в ПЕРЕМЕННУЮ.
2. присвоить полю новой записи значение ПЕРЕМЕННАЯ+1

[Serge_Bliznykov]

ну тогда по простому - при добавлении лочить таблицу,
выбирать оттуда максимальный номер, добавлять к нему единичку: select max(id)+1 as newid from таблица
и полученный newid использовать при добавлении записи

p.s. при реальном использовании, да ещё и при многопользовательском режиме лучше завести отдельную таблицу, в ней хранить последний использованный номер ID для каждой таблицы с данными (этакий самодельный сиквенс на основе таблицы)



Добавлено
Cannibal +1
прозевал ответ.. поэтому мой ответ повторил предыдущий пост...

[Sparky]

когда-то давно что-то подобное делала, к сожалению большую чатсь уже не помню, вот сохранился код функции получения следующего значения

func NextKey
lparam ctable_name, cfieldmax_name

local nkey,olddele,oldorder
nkey=0
if !File('индексы.dbf')
	create dbf индексы FREE (макс_индек N(5), имя_таблиц C(10), CANDIDATE Upper(AllTrim(имя_таблиц)) TAG имя_табл)
endif	

if not used(ctable_name)
	use (ctable_name) in 0
endif
if not used("индексы")
	use индексы in 0
endif

select индексы
 IF seek(Upper(AllTrim(ctable_name)), "индексы", "имя_табл") 
	replace макс_индек with макс_индек+1
	nkey=макс_индек
else
	append blank
	replace имя_таблиц with ctable_name
	select (ctable_name)
	olddele=set("deleted")
	set dele off
	oldorder=set("order")
	set order to 0
	calculate max(&cfieldmax_name) to nkey
	nkey=nkey+1
	set order to &oldorder
	set dele &olddele
	select индексы
	replace макс_индек with nkey
endif
return nkey

если что могу приложить проект