LookUp 필드를 동적으로 생성하려 합니다.

뭘 빠뜨린건지 계속 NIL 로 찍히더군여...

도와 주세여!!

frmHelpMult 라는 폼안에 있는 tblFrom 이라는 테이블에

만듭니다. 가져올 필드는 같은 폼안의 tblFromChild 라는 테이블에

있는 'bankname' 이라는 필드로, 가져온 다음 이름을

'lookBankName' 이라고 할겁니다.



begin
var
   aoLookField   : TStringField;
begin
   aoLookField   := TStringField.Create(frmHelpMult.tblFrom);

   with aoLookField do
   begin
         Name              := 'tblFrom' + asLookupFieldName;
         Index             := 0;
         Alignment         := taleftJustify;
         Size              := frmHelpMult.tblFromChild.FieldByName('bankname').Size;
         Tag               := 0;
         TransLiterate     := True;
         DisplayLabel      := 'bankname';
         DisplayWidth      := Size;
         FieldKind         := fkLookup;
         FieldName         := 'lookBankName';
         KeyFields         := 'bankcode';
         LookupDataSet     := frmHelpMult.tblFromChild;
         LookupKeyFields   := 'bankcode';
         LookupResultField := 'bankname';
         LookupCache       := False;
         ProviderFlags     := [pfInUpdate, pfInWhere];
         ReadOnly          := False;
         Required          := False;
         Lookup            := True;
         Visible         := True;
   end;
end;


- 찬 -