Criar CalcField em tempo de execução-urgente!

Delphi

30/06/2008

Pessoal,

É o seguinte...

Tenho um datasource q é ligado a grid da devexpress
só que quem esta ligado no datasource não é nenhum dataset. na tela.

dsDados.DataSet := TspConjuntoDados(Integer(PegaParametro(´prmDados´)));


Entao crei um clone e fiz isso....


esacAtendimento.CloneCursor(TClientDataSet(dsDados.DataSet), true);
dsDados.DataSet := esacAtendimento;

só que agora precisava criar um campo calculado nesse dataset(esacAtendimento) isso em tempo de execução. Alguem sabe como fazer isso? é Possível fazer???

desde já agradeço.

obrgiado.
[]s


Davefloripa

Davefloripa

Curtidas 0

Respostas

Du_nirvana

Du_nirvana

30/06/2008

Tenta isso:

   
var
  vg_field        : TField;

begin
  vg_field := TFloatField.Create( esacAtendimento );
      WITH vg_field DO
        BEGIN
          Name          := ´NOME_COLUNA´;
          FieldName     := ´NOME_COLUNA´;
          FieldKind     := fkInternalCalc;
          ProviderFlags := [];
          ReadOnly      := FALSE;
          DataSet       := esacAtendimento;
        END;
      esacAtendimento.FieldDefs.Update;
end;



GOSTEI 0
Davefloripa

Davefloripa

30/06/2008

vlw
obrigado
espero que de certo.


GOSTEI 0
POSTAR