Se ha modificado la fila en curso despues de la edicion, UPDATE
Publicado: Sab Mar 20, 2010 1:44 am
Hola de nuevo
Usando el ejemplo ADOData2 de los ejemplos de xailer, y poniendo en el
evento OnExit de cualquier columna lo siguiente
//---------------------------------------------------------- --------------------
METHOD DBBrowse1Column2Exit( oSender, oGridEdit, oNextCtl ) CLASS TForm1
LOCAL nRecNo
nRecno:= ::oSQLTable1:Recno()
::oSqlTable1:GoTop()
DO WHILE ! ::oSqlTable1:EoF()
::oSqlTable1:Sqkip()
ENDDO
::oSqlTable1:GoTo( nRecno )
RETURN Nil
--
Usando el ejemplo ADOData2 de los ejemplos de xailer, y poniendo en el
evento OnExit de cualquier columna lo siguiente
//---------------------------------------------------------- --------------------
METHOD DBBrowse1Column2Exit( oSender, oGridEdit, oNextCtl ) CLASS TForm1
LOCAL nRecNo
nRecno:= ::oSQLTable1:Recno()
::oSqlTable1:GoTop()
DO WHILE ! ::oSqlTable1:EoF()
::oSqlTable1:Sqkip()
ENDDO
::oSqlTable1:GoTo( nRecno )
RETURN Nil
--