ActiveDelphi

[zottis]

Pessoal, to tentando criar os campos de ClientDataSet em tempo de execução, mas da o seguinte erro:

....with message Campo 'COD_CLIENTE' não tem arquivo'.

alguém saberia como resolver?

desde já agradeço.

O código é este:

procedure TForm1.Button1Click(Sender: TObject);
var
TabSelecCOD_CLIENTE: TIntegerField;
TabSelecRAZAO_SOCIAL: TStringField;
begin
TabSelec.Close;

TabSelec.Fields.Clear;
TabSelecCOD_CLIENTE := TIntegerField.Create(Self);
TabSelecRAZAO_SOCIAL := TStringField.Create(Self);

with TabSelecCOD_CLIENTE do
begin
Name := 'TabSelecCOD_CLIENTE';
FieldName := 'COD_CLIENTE';
FieldKind := fkData;
end;
with TabSelecRAZAO_SOCIAL do
begin
Name := 'TabSelecRAZAO_SOCIAL';
FieldName := 'RAZAO_SOCIAL';
Size := 35;
FieldKind := fkData;
end;
TabSelec.Fields.Add(TabSelecCOD_CLIENTE);

TabSelec.FieldDefs.Clear;
TabSelec.FieldDefs.Add('COD_CLIENTE',ftInteger,0,FALSE);
TabSelec.FieldDefs.Add('RAZAO_SOCIAL',ftString,35,FALSE);
//TabSelec.FieldList.Create(TabSelec);
TabSelec.FieldDefList.Create(TabSelec);
TabSelec.CreateDataSet;
TabSelec.Open;
TabSelec.Insert;
TabSeleccod_Cliente.Value := 1;
TabSelecRazao_Social.Value := 'Consegui';
TabSelec.Post;
end;
_________________
Zottis Sistemas(TeamFB Users) - 2016 AnoXIX
Programação Delphi/Uniface/Firebird/MySQL/Oracle

"Se quiser ir rápido, vá sozinho.
Se quiser ir longe, vá em grupo."
Provérbio Africano