separadores de mil a una columna del dbgrid

[ingabraham]

Empezado por oesqueda

Ok vamos siendo mas explicitos.

Eso que pides no va en el Grid a menos que el grid tenga eventos o propiedades que nos permitan editar, por ejemplo el TcxDBGrid, que es de un tercero y de paga.

Dime que version de delphi usas, que base de datos o componente de base de datos y que Grid es por favor

firebir 2.0 , delphi 7

[oesqueda]

Imagino que usas DBExpress o usas IBX?

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger, ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Ya tu haces los cambios y lo adaptas a lo que necesitas, puedes agregar mas tipos de campos, etc.

[ingabraham]

Empezado por oesqueda

Imagino que usas DBExpress o usas IBX?

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger, ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Ya tu haces los cambios y lo adaptas a lo que necesitas, puedes agregar mas tipos de campos, etc.

y si el campo es creado en una subconsulta, como se lo agrego.

[[maeyanes]]

Hola...

Si el resultado de la subconsulta es parte del DataSet que estás usando para obtener los datos, no tienes que hacer nada más.

Yo solo le quitaría que verifique si el campos es del tipo ftInteger ya que mayormente este tipo de datos no necesita formato de decimales.


Saludos...

[oesqueda]

Ampliemos el codigo:

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0';
    ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Entero sin decimales, claro esta que faltan mas tipos de campos, pero ahi te dejo la idea para que lo completes.

[ingabraham]

Empezado por oesqueda

Ampliemos el codigo:

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0';
    ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Entero sin decimales, claro esta que faltan mas tipos de campos, pero ahi te dejo la idea para que lo completes.

FieldType
me dice que no lo reconoce, ni displayformt
lo probe utilizando un dataset

compañero pero yo mas que todo uso el query en mis consultas. como seria

[ecfisa]

Hola.

compañero pero yo mas que todo uso el query en mis consultas. como seria

Proba de este modo:

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 0 to IBQuery1.FieldCount -1 do
    if IBQuery1.Fields[i].DataType in[ftFloat, ftCurrency, ftBCD] then
      TNumericField(IBQuery1.Fields[i]).DisplayFormat:= '#,###,###,###,##0.00';
end;

Saludos.