Всё приходится вспоминать, т.к. давно не программировал в Microsoft Visual FoxPro. Типа у нас программа база данных для полиции:

Есть таблица taeter (т.е. преступники) см.:

А вот так выглядет форма frmtaeter.scx:

Вот код frmtaeter.scx:

событие cmdSpeichern:

IF !USED("taeter") THEN 
  USE taeter IN 0
ENDIF
SELECT MAX(taeter_id)+1 AS newID FROM taeter INTO CURSOR temp
SELECT taeter
APPEND BLANK 
REPLACE taeter_id WITH temp.newID IN taeter
REPLACE vorname WITH thisform.txtVorname.Value IN taeter
REPLACE nachname WITH thisform.txtNachname.Value IN taeter
REPLACE gebdatum WITH thisform.txtGebDatum.Value IN taeter
REPLACE geschlecht WITH thisform.txtGeschlecht.Value IN taeter
REPLACE datum WITH thisform.txtDatum.Value IN taeter
thisform.Release()

Событие cmdAbbrechen:

Thisform.Release()

Пояснение, вроде бы в Microsoft Visual FoxPro нет авто увеличения счётчика для ключевого поле, как в Microsoft Access, поэтому делают так:

SELECT MAX(taeter_id)+1 AS newID FROM taeter INTO CURSOR temp

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Tagebuch der schwerbehinderten Person