控件按钮中，翻页是最常见的一组按钮。在表中表现是记录指针的移动。
下面是一组翻页代码。出自《FOXPOR及其应用系统开发》史济民主编
 SELE 表
      DO CASE
         case  
               if NOT BOF()
                  go top
               else
                  =messagebox('已是第一页.',0+48+0,'提示')
               endif
        case  
              if NOT BOF()
                 skip -1
              else
                  =messagebox('已是第一页.',0+48+0,'提示')
              endif
       case  
             if NOT EOF()
                skip 1
             else
                 =messagebox('已是最后页.',0+48+0,'提示')
              endif   
      case
           if NOT EOF()
              go bott
           else
               =messagebox('已是最后页.',0+48+0,'提示')
          endif
   ENDCASE
  THISFORM.REFRESH
  权威吧，实际上这段代码是有点小问题的。用当然是可以用，就是不太完美。
***********************************************************************
指针移动按钮二
sele 表
 DO CASE
 CASE

     GO 1
     
     
     
     
 CASE
****指针向前移动一位********

 SKIP -1
 IF RECN()=1
     
      
     
     
  ELSE
    IF
        
          
     ENDIF
  ENDIF
CASE
****指针向后移动一位********
IF RECN()<reccount()
  SKIP 1
 ENDIF
 IF RECN()=reccount()
 
 
 
 
 ELSE
   IF
     
     
    ENDIF
 ENDIF
CASE
*****指针移动到最后一条记录


 GO reccount()
 
 
 
 
ENDCASE
 THISFORM.REFRESH
这个指针移动不用提示，当指针移到第一条记录或者最后一条记录时候，相应的按钮失效。但是这组代码还是 有一点问题的。待续。

有一点什么问题？

原来 是这样呀。

都是这样用的。我可能会通过变量来记录当前记录号，数据表不会一直打开，只是需要操作时才打开使用。