23.02.2009, 10:48 | #21 |
Administrator
|
создаем лукапную формочку (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; |
|