|
Aquí de nuevo.
Si de esta no soy capaz de solucionar mi problema desisto y queda como está.
El problema sigue siendo que la consulta que realizo después de la eliminación del elemento seleccionado en el dataGrid a través del botón eliminar, todavía lee el registro recien eliminado. La consulta es:
lsSQL := 'SELECT * FROM ' + TBL_FUNCION + ' WHERE NOMUSUARIO = "' +
obUsuario.Nombre + '" AND NOMPROYECTO = "' + obProyecto.Nombre + '" AND FECHA = "' + obEstimacion.Fecha + '" AND HORA = "' + obEstimacion.Hora + '" AND TIPO = "T" ORDER BY NOMFUNCION';
frmPrincipal.ADODataSet1.CommandText := lsSQL;
frmPrincipal.ADODataSet1.Open;
DBGrid1.DataSource := datasource1; {donde datasource1.DataSet = ADODataSet1}
He probado a realizar esta consulta despues de la eliminación, cuando salta el evento AfterDelete, realizar un commit y no hay manera. Si busco el registro inmediatamente con locate ya no está, pero si realizo la consulta anterior, sí me lo encuentra.
Debo estar haciendo algo de forma muy torpe pero no caigo.
No sé si influye pero el DataGrid lo tengo con readonly = true, porque solo lo quiero para mostrar los datos de la tabla FUNCION.
Siento ser tan pesado.
Todos los comentarios anteriores me han ayudado también, gracias.
|