怎样在保留屏幕菜单的条件下实现LIST功能 江西 赖泽祥 1995-03-31 TYPE NEWLIST.PRG SELE B USE GZMONTH @12,1 CLEAR @12,30 SAY"工资月表浏览" YORN="Y" DO WHILE UPPER(YORN)="Y" NA=0 GO TOP DO WHILE.NOT.EOF() @12,1 SAY"" IF RECCOUNT()<=10 DISPLAY ALLELSE DISPLAY NEXT 10 NA=NA+1 RESTNUM=RECCOUNT()-10*NA WAIT IF RESTNUM<=10 @12,1 SAY"" DISPLAY REST ENDIF ENDIF ENDDO @24, SAY "还要再浏览一遍吗?(Y/N):" GET YORNREAD ENDDO RETURN(江西 赖泽祥)