Ordenar un DBGrid por columna

[DOS]

Bueno ya lo solucione, lo hice como aconsejaba caral, con un combobox, lo que no sabia era que tenia que definir a los campos como clave secundaria para que los pueda ordenar. Gracias.

Código Delphi [-]
procedure TForm13.Button2Click(Sender: TObject);
begin
if combobox1.Text = 'Nombre' then
  begin
  table1.IndexName:='nombrefk';
  end;
if combobox1.Text = 'Codigo' then
  begin
  table1.IndexName:='codigofk';
  end;
if combobox1.Text = 'Imp. Venta' then
  begin
  table1.IndexName:='impventfk';
  end;
end;

[olbeup]

Hola DOS,

Creo que estas en un error, si en tú DBGrid, presentas de 8 a 10 campos o más, esos 8 ó 10 campos o más tienen que estar indexados, E R R O R , en un DBGrid puedes ordenar por cualquier campo pulsando en el título, A C I E R T O, si te ha dado ese error es por el TCustomADODataSet, no lo estas haciendo bien.

Un saludo.

[jafera]

Yo lo que hago es el proceso siguiente:

Código Delphi [-]
 
procedure TF_BuscarMecanic.DBGridBuscarTitleBtnClick(Sender: TObject;
  ACol: Integer; Field: TField);
var c: string;
begin
        Edit1.Text :='';
        c:=Field.FieldName;
        ComboBox1.Text:=c;
        OrdenarGrid.Close;
        if Sw_1 = 0 then
        begin
                OrdenarGrid.SQL[0]:= 'SELECT NOM, ID_MECANIC FROM H0001';
                OrdenarGrid.SQL[1]:= 'WHERE BAIXA_EMPRESA IS NULL';
                OrdenarGrid.SQL[2] :='ORDER BY '+ c + ' ASC';
                Sw_1:=1;
        end
        else
        if Sw_1 = 1 then
        begin
                OrdenarGrid.SQL[0]:= 'SELECT NOM, ID_MECANIC FROM H0001';
                OrdenarGrid.SQL[1]:= 'WHERE BAIXA_EMPRESA IS NULL';
                OrdenarGrid.SQL[2] :='ORDER BY '+ c + ' DESC';
                Sw_1:=0;
        end;
        OrdenarGrid.Open;
        OrdenarGrid.FieldByName(ComboBox1.Text).Index := 0;
        DBGridBuscar.SetFocus;
end;

Donde Sw_1 es una variable Integer y privada del form, lo tengo combinado con un ComboBox para poder hacer la selección desde ambos componentes.

Nota: Utilizo firebird 1.5.

Saludos

Josep

[DOS]

Empezado por olbeup

Hola DOS,

Creo que estas en un error, si en tú DBGrid, presentas de 8 a 10 campos o más, esos 8 ó 10 campos o más tienen que estar indexados, E R R O R , en un DBGrid puedes ordenar por cualquier campo pulsando en el título, A C I E R T O, si te ha dado ese error es por el TCustomADODataSet, no lo estas haciendo bien.

Un saludo.

Es que nunca use un TCustomADODataSet, no se como se configura. Hasta ahora solo utilice Ttable y Datasource. Igualmente me parece mejor la del combox, (aunque estoy de acuerdo con indexar tantos campos) ya que el cliente no va a saber que tiene que hacer click en el titulo para que se ordene, de esta forma es mas intuitiva.
jafera, lo voy a probar
Gracias, saludos.

[ecfisa]

Empezado por DOS

Es que nunca use un TCustomADODataSet, no se como se configura. Hasta ahora solo utilice Ttable y Datasource.

Hola DOS.

TCustomADODataSet es la clase base de los componentes de datos ADO y no se usa directamente. olbeup realiza el moldeado con el ancestro común de TADOQuery y TADOTable para que la propiedad Sort pueda ser utilizada sea cual fuere al que el DBGRid este relacionado.


Tratándose de BDE, podrías usar un TQuery:

Código Delphi [-]
 
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
const 
  PrvOrd: Boolean = False;
{$J-}
const 
  Orden: array[Boolean] of string=(' ASC',' DESC');
var
  fName: string;
  PrvInx: Integer;
begin
  fName:= Column.Field.FieldName;
  PrvInx:= Column.Index;
  with DBGrid1.Columns[PrvInx].Title.Font do Style:= Style - [fsBold];
  with TQuery(DBGrid1.DataSource.DataSet) do
  begin
    PrvOrd:= not PrvOrd;
    Close;
    SQL.Text:= 'SELECT * FROM TU_TABLA ORDER BY '+ fName + Orden[PrvOrd];
    Open
  end;
  with DBGrid1.Columns[PrvInx].Title.Font do Style:= Style + [fsBold];
end;

Saludos.

[DOS]

Gracias ecfisa, recien hoy pude ponerme a trabajar, el asunto es que lo voy a realizar con un Query y dataSource por medio del combobox, el codigo que realice es el siguiente.

Código SQL [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
if combobox1.Text = 'Servicio' then
begin    
  Query1.Close;    
  Query1.SQL.Clear;
  Query1.SQL.ADD('SELECT * FROM servicio.DB ORDER BY Servicio ASC');
  Query1.Active:=true;
  Query1.Open;  
end;

if combobox1.Text = 'Codigo' then
  begin    
  Query1.Close;    
  Query1.SQL.Clear;
  Query1.SQL.ADD('SELECT * FROM servicio.DB ORDER BY Codigo ASC');
  Query1.Active:=true;
  Query1.Open;  
end;

El asunto es que lo que hace es poner los campos de arriba para abajo o de abajo para arriba, pero no los ordena alfabeticamente, solo gira las tablas. Faltará configurar algun dato en elgun lado?
Gracias por su ayuda.

[[Caral]]

Hola
Solo arreglar un poco:

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM servicio.DB ';

if combobox1.Text = 'Servicio' then
begin    
  Query1.SQL.ADD(' ORDER BY Servicio ASC');
  Query1.Active:=true;
end;

if combobox1.Text = 'Codigo' then
  begin    
  Query1.SQL.ADD(' ORDER BY Codigo ASC');
  Query1.Active:=true;
end;

Saludos

[Casimiro Noteví]

Usa el código que te ha puesto ecfisa.

De todas formas el código que estás usando también ordenará por servicio o por código, aunque alfabéticamente no creo, suponiendo que sean números
Y el asc sobra porque por defecto siempre es ascendente, sólo es necesario si fuese descendente.

EDITO: ahora veo el código de caral, también te vale.

[DOS]

Gracias caral
el codigo esta mas depurado, pero el error por decirlo e alguna manera es el mismo, osea solo invierte la tabla como que se guia solo por los registros de los extremos, si un campo en el medio comienza con una "a", no lo tiene en cuenta.
Algo estara mal configurado?