Ключ = 0

← →
SPIRIT © (2003-08-05 10:09) [0]

при добавлении в AdoTable:
insert; fieldbyname("FIO").value:=edit1.text; post; last; edit2.text:=inttostr(fieldbyname("kod").value);
в результате в edit2= "0"
почему ?

← →
Соловьев © (2003-08-05 10:18) [1]

зачем last?

← →
SPIRIT © (2003-08-05 10:21) [2]

ну уберем .... все равно же 0

← →
sniknik © (2003-08-05 10:22) [3]

insert;
fieldbyname("FIO").value:=edit1.text;
post;
refresh;//requery
last;
edit2.text:=inttostr(fieldbyname("kod").value);

← →
SPIRIT © (2003-08-05 10:24) [4]

а после refresh указатель случайно не на 1-ую запись ставиться ?

← →
stud © (2003-08-05 10:42) [5]

а что там должно быть?

← →
Mike1 Kouzmine1 (2003-08-05 11:08) [6]

← →
Anatoly Podgoretsky © (2003-08-05 11:20) [7]

Потому что в том поле 0, если надо не 0, то сделай так
insert; fieldbyname("FIO").value:=edit1.text; fieldbyname("KOD").value := 1; post; last; edit2.text:=inttostr(fieldbyname("kod").value);

← →
sniknik © (2003-08-05 11:32) [8]

> Ключ = 0
я почемуто решил что это автоинкремент (сам обычно его ключом делаю)

← →
SPIRIT © (2003-08-05 11:57) [9]

конечно автоинкремент... так что Anatoly Podgoretsky самому присваимвать нельзя

stud

там должен быть код последней записи

← →
SPIRIT © (2003-08-05 12:23) [10]

после Refresh выдает такое сообщение:"Key value vas changed or deleted at the data store. The local row is noe deleted".
естественно я ключ не удалял и не переименовывал, ток что ему надо ?

insert; fieldbyname("FIO").value:=edit1.text; post; active:=false; active:=true; last; edit2.text:=inttostr(fieldbyname("kod").value);

"Grid index is out of range"

а без last все нормально выдает ключ первой записи в моем случае - 28

> Grid index is out of range"

ну правильно. у тебя же на первой записи, а ты пытаешся выйти за пределы - вот и ошибка.

ну и что, что на первой... я с первой на последнюю не могу перескочить с помощью last?.. глупо.. хотя... вот такая конструкция работает...
insert; fieldbyname("FIO").value:=edit1.text; post; active:=false; active:=true; first; next; last; edit2.text:=inttostr(fieldbyname("kod").value);

Ключ = 0 Найти похожие ветки