24.02.2009, 05:52 | #22 |
Участник
|
Спасибо за совет сделал так
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) |
|