Como criar campo lookup em ClientDataSet em Runtime?
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
Curtidas 0
Mais Respostas
Edibertoalves
22/09/2007
UP
GOSTEI 0