*** Set up for highlighting current row This.nRecNo = RECNO( This.RecordSource ) This.SetAll( 'DynamicForeColor', ; 'IIF( RECNO( This.RecordSource ) = This.nRecNo, RGB( 0, 0, 128 ), RGB( 0, 0, 0 ) )', 'COLUMN' ) This.SetAll( 'DynamicBackColor', ; 'IIF( RECNO( This.RecordSource ) = This.nRecNo, RGB( 0,255,255 ), RGB( 255, 255, 255 ) )', 'COLUMN' )And this code in AfterRowColChange:
Thisform.LockScreen = .T. WITH This .nRecNo = RECNO( .RecordSource ) .Refresh() ENDWITH Thisform.Lockscreen = .F.