[ARTURO06]

gracias a todos los que se tomaron un tiempo para ayudarme lo resolvi de esta manera , saludos

Código Delphi [-]
 
procedure TFormprincipal.FIBDataSet2AfterOpen(DataSet: TDataSet);
var
  f : TField;
begin
  begin
    f := DataSet.FindField('enero');
    if (f is TNumericField) then
      (f as TNumericField).Displayformat := '$,0.00';
  end;
end;