Como criar campo lookup em ClientDataSet em Runtime?

Delphi

22/09/2007

Olá Pessoal tudo bem com vcs?

No Fields Editor, na opção New Field, podemos criar campos em designtime num clientdataset. Portanto gostaria de saber como faz para criar esses campos em runtime.
Gostaria de criar um campo LOOKUP em runtime.

Aqui segue um trecho do código:

with cdsFornProdutos do
begin
FieldDefs.AddFieldDef.Name := ´NOME´;
FieldDefs.AddFieldDef.DataType := ftString;
FieldByName(´NOME´).FieldName := ´NOME´; // erro!!! Field ´NOME´ not found.
FieldByName(´NOME´).FieldKind := fkLookup;
FieldByName(´NOME´).KeyFields := ´ID_FORNECEDOR´;
FieldByName(´NOME´).LookupDataSet := TempCDS;
FieldByName(´NOME´).LookupKeyFields := ´ID´;
FieldByName(´NOME´).LookupResultField := ´NOME_RAZAO´;
end;

Porém o erro acontece justamente aonde estou comentando acima, o que estou fazendo errado nesse trecho??


[]´s

Ediberto


Edibertoalves

Edibertoalves

Curtidas 0

Mais Respostas

Edibertoalves

Edibertoalves

22/09/2007

UP


GOSTEI 0
POSTAR