la idea es la misma pero ya tienes que usar un Query y añadir:
Código Delphi [-]
var ordenar:string;
begin
Case Radiobutton.ItemIndex of
0: ordenar := 'codigo'
1 rdenar :='Descripcion';
end;
query1.sql.text := lo que sea + ' order by ' +ordenar;
query1.open;
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|