subtotales en un grid

[federicorl]

he visto en algunas aplicaciones hechas en basic, que un grid se puede ordenar haciendole click al titulo de la columna

esto ya lo hice yo tambien en delphi de forma muy sencilla (si alguien lo necesita no dude en preguntar)

pero en otras aplicaciones ademas de ordenar agrupo y maneja una linea con los subtotales, alguien sabe como hacer esto? actualmente manejo delphi 7 y las acabo de instalar las raize

gracias foristas y felices fiestas

[vtdeleon]

Empezado por federicorl

esto ya lo hice yo tambien en delphi de forma muy sencilla (si alguien lo necesita no dude en preguntar)

No dude en mostrarlo aqui o en la sección de trucos. Seguro que a muchos le interesará.

Empezado por federicorl

pero en otras aplicaciones ademas de ordenar agrupo y maneja una linea con los subtotales,

Bueno, donde mostraba esos subtotales? En el mismo Grid?

[federicorl]

para ordenar un grid es muy facil si usas un ttable con indices seria en el evento onTitleClick

procedure TMtn_Clientes.DBGrid1TitleClick(Column: TColumn);
begin
Clientes.indexfieldnames := Column.FieldName;
end;

si usas un query seria en el mismo evento, agregar el order by Column.FieldName y regenerar la consulta

lo que yo vi en una aplicacion es que ademas de ordenar te daba los subtotales en el mismo grid, no debe ser muy dificil pero si alguien ya lo hizo pues me aorraria un trabajito

[[Lepe]]

Pues sí es difícil, al menos hacerlo a mano.

La JVCL trae (como no) un pié para el Grid, no lo hace automáticamente el sumar la columna, pero puede mostrarse.

Por contra y haciéndolo todo desde cero, con el VirtualStringTree, podrías no solo hacer un Footer sino cualquier otra cosa, aunque seamos realistas, hay que escribir mucho código para realizarco con el VT.

Saludos

[[fjcg02]]

Otra manera facil de ordenar un grid ( o cualquier dataset) usando ADO es así
Concretamente yo lo uso clickando en el titulo de un columna. No hace falta nada más.

Código Delphi [-]
ADOQuery.Sort:= Column.FieldName + ' ASC';

Espero les sea de utilidad.

Un saludo