Ver Mensaje Individual
  #4  
Antiguo 16-12-2011
Avatar de jafera
jafera jafera is offline
Miembro
 
Registrado: may 2007
Ubicación: Llagostera (Girona)
Posts: 585
Reputación: 20
jafera Va por buen camino
Gracias por las respuestas.

El problema basicamente radica en que no solo ordeno por estos campos, en un combo box puedo seleccionar por donde quiero ordenar, Nombre, Licencia, DNI, etc.

Despues viene el problema cuando al cambiar en onselect del combo box me lanza el error de que no encuentra el campo por el que quiero ordenar

Código Delphi [-]
 
procedure TF_MasterDetall.ComboBox1Select(Sender: TObject);
begin
        Edit1.Text :='';
        Master.Close;
        Master.SQL[2] := 'ORDER BY '+ ComboBox1.Text;
        Master.Open;
        Master.FieldByName(ComboBox1.Text).Index := 0;
        JvDBUltimGrid1.SetFocus;
end;

Código Delphi [-]
 
procedure TF_MasterDetall.Edit1Change(Sender: TObject);
var Camp: String;
begin
        Camp:=Combobox1.Text;
        If Camp='NOM' then
        Camp:='COGNOM1';
        BuscarCorredor.Close;
        BuscarCorredor.SQL.Clear;
        BuscarCorredor.SQL.Add('select '+Camp+' from CU0001 where upper('+Camp+') like '+quotedstr(AnsiUpperCase(Edit1.Text))+' order by '+Camp+'');
        BuscarCorredor.Open;
        Try
                Master.Locate(Camp,BuscarCorredor.Fields[0].Value,[]);
        finally
                BuscarCorredor.Close;
        end;
end;

El tema del campo calculado con apellido1+ apellido2+nombre tambien lo he probado, no acaba de funcionar correctamente la búsqueda.

Saludos
Responder Con Cita