Fórum Como criar campo lookup em ClientDataSet em Runtime? #346425
22/09/2007
0
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
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
Curtir tópico
+ 0
Responder
Posts
22/09/2007
Edibertoalves
UP
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)