SET TALK OFF SET ECHO OFF select 1 *use mstr select 2 *use trans1 select 3 *use book1 select 4 *use book2 *zap select 5 *use temp excl THISFORM.TEXT9.VISIBLE=.F. thisform.grid2.visible=.f. THISFORM.TEXT10.VISIBLE=.F. THISFORM.LABEL9.VISIBLE=.F. SUM TOTAL TO THISFORM.TEXT13.VALUE
LPARAMETERS nRecNo SET DELETED on thisform.grid1.Refresh lnRecNo = IIF( NOT EOF( thisform.grid1.value ) AND NOT BOF( thisform.grid1.value ), RECNO( thisform.grid1.value ), 0 ) *SELECT thisform.grid1.value select 5 COUNT TO lnRecCount FOR NOT DELETED() IF lnRecNo # 0 GO lnRecNo ELSE GO TOP ENDIFthanks.