Fórum Formatar Campo em DBGrid em tempo de execução #376898

Olá amigo,
  Na hora que você for criar o field faça o seguinte :

Estou testando aqui o tipo do field, mas se você souber não precisa, e depois faça a formação da seguinte forma. veja : 

if ClientDataSet1.Fields[1].DataType = ftFloat then
      (ClientDataSet1.Fields[1] as TFloatField).DisplayFormat := '#0.00'; 

Att,

Wesley Y

Wesley não funcionou, não esta dando erro nenhum mas não esta mudando o formato, devo estar colocando no lugar errado o codigo esta abaixo:



function TFuncoes.FiltrarVendedor(LCODEMP,LCODFIL,LNUMANE: Integer): TClientDataSet;
var
  LSQL:string;
  RetDataSet:TClientDataSet;
begin
  RetDataSet:=TClientDataSet.Create(nil);
  RetDataSet.Close;
  RetDataSet.SetProvider(dmCargas.dspvwVendedor);
  RetDataSet.FetchParams;
  LSQL:=' select b.codemp,b.codfil,b.numane,b.codrep,sum(pesbru),c.nomrep'+
        ' from e135pfa b,e090rep c'+
        ' where ((codemp=:pcodemp) and (codfil=:pcodfil) and (numane=:pnumane) and (b.codrep=c.codrep))'+
        ' group by codemp,codfil,numane,b.codrep,nomrep';
  RetDataSet.CommandText:=LSQL;
  RetDataSet.Params.ParamByName('pcodemp').AsInteger:=LCODEMP;
  RetDataSet.Params.ParamByName('pcodfil').AsInteger:=LCODFIL;
  RetDataSet.Params.ParamByName('pnumane').AsLargeInt:=LNUMANE;
  RetDataSet.Open;
  if RetDataSet.Fields[5].DataType = ftFloat then
    (RetDataSet.Fields[5] as TFloatField).DisplayFormat := '#0.00';
  Result:=RetDataSet;
end;

Wesley,

Achei o erro, agora esta funcionando ok.

Valeu meu Velho

Até a proxima.

Jorge

Blz, amigo chamado fechado. ate a próxima

Um abraço

Wesley Y