Ordenar un DBGrid por columna

[DOS]

Gracias olbeup
nunca use unTCustomADODataSet Lo relaciono con el DataSource y algo mas? ya que me tira error cuando lo ejecuto al hacer click en el encabezado.

[Casimiro Noteví]

Amigo DOS, no tienes tiempo de leer un libro para aprender sobre lo que estás trabajando y además sigues poniendo comentarios inservibles, veamos:

Empezado por DOS

nunca use unTCustomADODataSet Lo relaciono con el DataSource y algo mas? ya que me tira error cuando lo ejecuto al hacer click en el encabezado.

Pregunta que cae por su propio peso: me tira error, ¿qué error?

[DOS]

Este error 'access viloation at 0x0012fdf6: read of address 0x00000000'. Process Stopped...
supongo que no sera problema del TCustomADODataSet ya que no mencionaste que estuviera mal conectado, asi que no se que significa ese error. obiamente algo no realice bien.

[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.