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

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.

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?

Hola
No he seguido este hilo, seria bueno saber que es lo que necesitas y que campos tiene la tabla.
Saludos

La tabla tien los sig. campos
Cod_servicio * / Codigo / Descripcion / Importe / Activo
1300 PECPC0001 Corte de pelo corto 30,00 € 1
1301 PECPM0001 Corte de pelo mediano 35,00 € 1
1302 PECPL0001 Corte de pelo largo 40,00 € 1
1303 VEVAC0001 vacunacion 15,00 € 1
1304 VEACU0001 acupuntura 40,00 € 1
1305 VERX0001 Radiografias 32,00 € 1

La idea es que si pongo en el combobox Descripcion, apreto el boton y lo ordene asi

acupuntura
corte de pelo
""
""
""
Radiografias
vacunacion

ahora simplemente lo da vuelta, toda la tabla, ya sea ordenado por Descripcion o por Codigo, simplemente da vuelta la tabla, no lo ordena alfabeticamente.
Gracias

Hola
Intenta ordenando mas campos:

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

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

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

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

Saludos

Nop, sigue sin funcionar, le agregue ordenar por importe y ese si lo ordena bien, parece que no tuviera problemas con campos numericos pero no sabe bien el abecedario :D

A ver, pon aquí algún resultado de esos que no te salen ordenados, que lo veamos.

ja ja ja, no lo puedo creer era algo muy tonto, cuando empieza con mayusculas primero lo ordena por estas, luego ordena las minusculas, creo que debere ponerle una restricion al campo para que sea todo minuculas, no?
Muchas Gracias ^\||/

Antes de dar por cerrado el tema y abusando de sus conocimientos de mi parte, he decidico complicarlo poniendo 4 tablas :rolleyes:
Mascotas
Cod_mascota*
Cod_prop
nombre
raza
fecha_nac

Propietario
Cod_prop*
Nombre
Apellido
Direccion
Localidad

Peluquero
Cod_peluquero
Nombre
Apellido
Direccion

Turnos de peluqueria
Cod_turno
Cod_masc
Cod_prop
Cod_pelu
Fecha

El DBGrid tien los sig. campos
Fecha
Hora
Cliente //campo creado mediante la union con propietario
Mascota //campo creado mediante la union con mascota
Peluquero //campo creado mediante la union con peluquero

y el codigo del boton es el siguiente

Código Delphi [-]
procedure TForm16.Button8Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM turnopelu.DB ';
  Query1.SQL.Add('INNER JOIN peluquero.DB ON Cod_pelu = Cod_peluquero');
  Query1.SQL.Add('INNER JOIN propietario.DB ON Cod_cli = Cod_prop');
  Query1.SQL.Add('INNER JOIN mascota.DB ON Cod_masc = Cod_mascota');
  //Query1.SQL.Add('GROUP BY turnopelu.DB');

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

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

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

El problema es que no me muestra los datos de los campos agregados solo la fecha.