Posicion del cursor en un dbgrid
Publicado por Alejandro Raul Coloma (1 intervención) el 08/06/2004 15:48:20
Necesito posicionar al cursor en la fila de la grilla en que estaba, antes
de que se ejecute el procedimiento 'consulta' que detallo a copntinuacion
¿ Como guardo la posicion y como la activo en el procedimiento consulta ?
Procedure TFTelefonos.consulta(vid: integer);
begin
if QTelefonos.active then QTelefonos.Close;
QTelefonos.DatabaseName:='dbagenda';
QTelefonos.SQL.Clear;
QTelefonos.SQL.Add('SELECT * FROM TELE.DBF ');
QTelefonos.SQL.Add('ORDER BY RAZSOC');
QTelefonos.open;
qtelefonos.Refresh;
dbgrid1.Refresh;
end;
La secuencia es asi ( como para aclarar lo que estoy haciendo) Yo muestro en un dbgrid el resultado de un query con datos de una tabla , luego por un evento de la grilla modifico la tabla. Cuando vuelvo a la pantalla de la grilla debo volver a correr un query para reflejar en la grilla los cambios hechos a la tabla, para eso uso el procedure consulta de arriba. Pero pierdo la posicion del cursor dentro de la grilla. Ese es mi problema. Gracias a todos, saludos Alejandro de Quilmes.
de que se ejecute el procedimiento 'consulta' que detallo a copntinuacion
¿ Como guardo la posicion y como la activo en el procedimiento consulta ?
Procedure TFTelefonos.consulta(vid: integer);
begin
if QTelefonos.active then QTelefonos.Close;
QTelefonos.DatabaseName:='dbagenda';
QTelefonos.SQL.Clear;
QTelefonos.SQL.Add('SELECT * FROM TELE.DBF ');
QTelefonos.SQL.Add('ORDER BY RAZSOC');
QTelefonos.open;
qtelefonos.Refresh;
dbgrid1.Refresh;
end;
La secuencia es asi ( como para aclarar lo que estoy haciendo) Yo muestro en un dbgrid el resultado de un query con datos de una tabla , luego por un evento de la grilla modifico la tabla. Cuando vuelvo a la pantalla de la grilla debo volver a correr un query para reflejar en la grilla los cambios hechos a la tabla, para eso uso el procedure consulta de arriba. Pero pierdo la posicion del cursor dentro de la grilla. Ese es mi problema. Gracias a todos, saludos Alejandro de Quilmes.
Valora esta pregunta


0