создаем лукапную формочку (frmFieldList), источником которой является Field
в триггере OnLookup() поля таблицы заводим переменную
Name DataType Subtype Length
varField Record Field
пишем:
varField.SETRANGE(TableNo,<номер таблицы>);
CLEAR(frmFieldList);
frmFieldList.LOOKUPMODE(TRUE);
frmFieldList.SETTABLEVIEW(varField);
IF frmFieldList.RUNMODAL() = ACTION::LookupOK THEN BEGIN
frmFieldList.GETRECORD(varField);
Text := Field."No.";
EXIT(TRUE);
END;
|