Спасибо за совет сделал так
frmFieldList
***Form - OnOpenForm()***
RecR.OPEN(TES);
i:=RecR.FIELDCOUNT;
j:=1;
DELETEALL;
IF i<>0 THEN
REPEAT
FieldR:= RecR.FIELDINDEX(j);
id:=j;
Field:=FieldR.NAME;
INSERT;
j+=1;
NEXT(1);
UNTIL j=i;
полностью автоматический lookup просчитывающий и выводящий все поля таблицы TES(передаю из NAVDOC)
|