LookUp из поля таблицы

[DA_NEAL]

Ситуация следующая. Сдела формочку для Таблицы Field.
В созданной табличке необходимо указывать номера полей таблиц. Для выбора полей вставил такой вот код в LookUp

FieldList.LOOKUPMODE := TRUE;
IF FieldList.RUNMODAL = ACTION::LookupOK THEN
BEGIN
FieldList.GETRECORD(Fields);
"Value Field No." := Fields."No.";

// Modify,Validate или еще че.
END;

При работе непосредственно из таблички (без формы). Окошко выпадает значение присваивается но почему то незаписывается. Не помагают ни Modify, ни Validate.
При работе из формы для такой таблички если поставить CurrForm.UPDATE в OnAfterValidate то все хорошо.

Дак вот вопрос можно ли как сделать чтоб при работе непосредственно с табличкой поле обновлялось.

[romeo]

Это глюк навижена. Не обращай внимания. Из формы будет работать.

[Beetlejuice]

Ну почему же сразу "глюк"...просто нужно сообразить.

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;

[romeo]

2Beetlejuice:
Это конечно круто .. Это может даже работает. Но пожалуй лучше написать обычный лукап без Локтейблов и Коммитов и работать из формы без проблем. Чем нагружать код подобными вещами. Вообще коммитами не надо разбрасываться.

[SVG]

Думаю такой код выдаст юзеру "другой пользователь изменил запись после того как она была прочитана из базы".

[DA_NEAL]

Цитата:

Сообщение от Beetlejuice

Ну почему же сразу "глюк"...просто нужно сообразить.

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;

<{POST_SNAPBACK}>

Thnx. Так я тоже пробовал но вот с Locktable то и не догадался .

[DA_NEAL]

Цитата:

Сообщение от SVG

Думаю такой код выдаст юзеру "другой пользователь изменил запись после того как она была прочитана из базы".

<{POST_SNAPBACK}>

Выдаст если сначала поменять через лукап а потом ручками или наоборот. Но "ручками" я просто поле закрою от редактирования и все.

[SVG]

не поле, а всю строку надо закрыть

[DA_NEAL]

согласен