Foxpro2.6使用技巧谈

Author: 辽宁刘赫 Date: 1995-09-22

        一.用宏指令实现报表的多选择输出
        当我们处理报表时，如果想灵活控制输出，可以采用以下方式，假设报表名字为ABC
        M.X1="ABC"
        M.X2=IIF(M.X3,"PREVIEW",TO PRINTER")
        REPORT FORM (M.X1) &M.X2
        这样通过控制M.X3来实现报表的输出。
        二.DOS外壳功能实现
        可以先保存屏幕，再运行COMMAND.COM然后EXIT返回。
        SAVE SCRE TO BCD
        RUN C:\COMMAND.COM
        REST SCRE FROM BCD
        三.函数EOF()的完善
        我们知道，当记录指针指向数据库第一条记录，BOF()应返回TRUE，这在大多数情况下是对的，但当数据库只有一条记录时，BOF()并不返回TRUE。为此我们用以下程序业完善BOF()。
        FUNCTION GOODBOF
        PRIVATTE BEG,PRE
        BEG=.T.
        IF .NOT. BOF()
        PRE=IIF(EOF(),0,RECNO())
        DO WHILE .T.
        IF EOF()
        EXIT
        ENDIF
        ENDIF
        SKIP -1
        IF .NOT. BOF()
        BEG=.F.
        ENDIF
        EXIT
        ENDDO
        IF PRE=0
        GO BOTTOM
        IF .NOT. EOF()
        SKIP
        ENDIF
        ELSE
        GO PRE
        ENDIF
        ELSE
        GO PRE
        ENDIF
        ENDIF
        RETURN BEG
        (辽宁刘赫)