Leer fila en la que estoy situado en un DBgrid

[RyAr]

Buenas, lo que me has dicho funciona, pero tengo un problema tal y como lo he puesto, y es que si el mismo dia hay varias reservas me saca la solo la primera. El codigo que he metido es este:

Código Delphi [-]
Form2.Table2.Locate ('FECHARESERVA', Form2.Query2.Fieldbyname('FECHARESERVA').value,[]);

Tambien tengo estos campos como clave EMPRESA2, HORAINICIO, HORAFIN, ANULADO2, por lo que me gustaria incluirlos en el locate para que vaya a ese registro, y no al primero del dia, que puede ser de otra reserva, como lo meto??

Saludos, y gracias

[tcp_ip_es]

No tienes ningun campo clave que te identifique un único registro??? si no lo tienes en el locate puedes meter varios campos:

Código Delphi [-]
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]), []);

Espero que te sirva, saludos, Tony

[RyAr]

Buenas, no tengo campo unico, ya que te comento. Esta tabla esta relacionada con otra mediante el campo EMPRESA2, y lo que hace es almacenar simplmente las fechas de las reservas de los salones, y es que he declarado todos los campos como clave primeria, ya que dos empresas puede tener el mismo dia, y a las mismas horas una reserva, y que ambas no esten anuladas.

El codigo que me has dado, siempre se posiciona en el primer registro de la tabla. ¿Alguna idea mas?.

Gracias por tu paciencia

Saludos

[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