problemas con dbgrid

[sema31]

Buenos días, gracias por contestar


He probado en el evento del dataset.beforeinsert poner abort pero sigue igual, también he probado en las propiedades del dbgrid ponerlo en readonly=true y mismo resultado,


Respecto al código que le he puesto al botón de consulta es

Código Delphi [-]
if QUERY1.Eof then EXIT;
FEDITOR_CONTRATO:=TFEDITOR_CONTRATO.Create(SELF);
FEDITOR_CONTRATO.showmodal;

donde query es una consulta y un componente TpFIBDataset (de las fibplus) enlazado con un dataset
Y Feditor_contrato es el form que se abre cuando realizo la consulta


Si en el dbgrib me posiciono en el ultimo registro y pulso la flecha abajo, ya no me funciona el boton de consulta, entiendo que es porque el puntero de la base de datos esta como si estuviese insertando un registro nuevo y al pulsar en el botom esta sentencia hace su trabajo if QUERY1.Eof then EXIT; No se como evitar que cuando este en el ultimo registro de dbgrid, el puntero se quede ahi




Un saludo

[marco3k]

Gracias por hacernos saber. Pero yo uso la forma de poner Readonly=True en el dbgrid, es mas lo implemente en una clase form de consulta y solo uso la clase y no me preocupo de configurar el dbgrid.
Y como mencionas el dbgrid al ponerte al final de los registros de manera predeterminada esta en modo insertar, eso pasa cuando quieras llenar datos directamente del grid, pero yo particularmente lo hago desde un formulario de detalle (lo de llenar datos), asi por que eso lo pongo en Readonly=True.
La curiosidad que me da del porque no te funciona es: ¿si usas el TClientdataset vinculado a un Tdatasource y este con tu dbgrid?, asi lo uso y me funciona.