Leer fila en la que estoy situado en un DBgrid

[tcp_ip_es]

No te entiendo muy bien, vamos a ver si haciendo un locate con esos cuatro campos no existe un registro unico sino varios, es lógico que se posicione en el primero que encuentra, si tu tabla solo tiene esos cuatro campos y hay varios registros con esos cuatro campos iguales lo que deberías hacer es mostrar un dbgrid editable ya que sobre dbedits solo puedes editar/mostrar un solo registro.

Pon un if a ver si te realiza el locate:

Código Delphi [-]
if Form2.Table2.Locate('EMPRESA2;HORAINICIO;HORAFIN;ANULADO2', VarArrayOf([Form2.Query2.Fieldbyname('FECHARESERVA').value, 
Form2.Query2.Fieldbyname('HoraInicio').value, Form2.Query2.Fieldbyname('HoraFin').value,Form2.Query2.Fieldbyname('Anulado2').value]), []) then 
// abres tu form
else
 showmessage('No existen entradas');

Saludos, Tony

[RyAr]

Buenas, y gracias por tu explicacion, solo tengo una duda del codigo que me has puesto. Porque en el locate en la primera parte pones EMPRESA2, y excluyes FECHARESERVA, y en la segunda parte incluyes FECHARESERVA y excluyes EMPRESA2.

Una aclaracion, al hacer la consulta selecciono FECHARESERVA, HORAINICIO, HORAFIN, ANULADO2, es decir, que no incluyo el campo empresa, ya que esa parte la meto en el WHERE de la consulta para comprar si es la empresa a o no. Al no incluir EMPRESA2 en la consulta, como modificaria tu codigo.

Gracias, gracias y gracias

[tcp_ip_es]

upss se me ha pasado meter el campo empresa , faltaría que lo metieses y ya esta....

[RyAr]

Buenas, ya me va bien, asi que muchisimas gracias por tu paciencia.

Saludos

[ramonibk]

Una pequeña duda.

yo tengo algo parecido y tambien estoy buecando la manera de poder habrir desde el Dbgrid basado en Query un formulario para modificacion de datos.
pero en mi caso se complica por que lo que tengo son barios Query que mandan los datos a un DataSource. el cual es el que pinta en el DbGrid.

 
procedure TfrmBuscar.btnBuscarClick(Sender: TObject);

begin
 if rbEmpresa.checked then Begin
  qryEmpresas.close;
  qryEmpresas.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.dataSet:=qryEmpresas;
  qryEmpresas.Open;
 End Else
 If rbNombre.checked Then Begin
  qryNombre.Close;
  qryNombre.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryNombre;
  qryNombre.Open;
 End Else
 If rbApellido.checked Then Begin
  qryApellido.Close;
  qryApellido.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryApellido;
  qryApellido.Open;
 End Else
 If rbTelefono.checked Then Begin
  qryTelefono.Close;
  qryTelefono.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryTelefono;
  qryTelefono.Open;
  End;
end;

procedure TfrmBuscar.Salir1Click(Sender: TObject);
begin
 Close;
end;

Este es el codigo que estoy Usando para las diferenres busquedas.

[tcp_ip_es]

Pues en el evento que abras ese formulario (ya sea un boton, o en el OnDblClick del DbGrid), pon los if que estás colocando en el btnBuscar, y dependiendo de cual este checked, haces un locate sobre una tabla u otra.

Saludos, Tony