![]() |
#3 |
Участник
|
Ну почему же сразу "глюк"...просто нужно сообразить.
CLEAR(FieldList); // не забываем очищать по указателю FieldList.LOOKUPMODE := TRUE; IF FieldList.RUNMODAL = ACTION::LookupOK THEN BEGIN FieldList.GETRECORD(Fields); loca_rec_current.LOCKTABLE; // это переменная той же записи что и //REC, лочим таблицу loca_rec_current.GET(line); //выставляем нужную запись loca_rec_current.Fieldno:= Fields."No.";//дальше понятно. loca_rec_current.MODIFY; COMMIT; END; |
|