关于在VFP中用表格控件浏览数据表时的分页浏览_foxpro程序的分页显示-优快云博客

本文链接：https://blog.youkuaiyun.com/wsxiaole/article/details/1549687

该博客介绍了如何在Visual FoxPro（VFP）环境中使用表格控件进行数据表的分页浏览。通过编写表单初始化代码和按钮点击事件处理，实现了打开、分页、上一页、下一页及关闭数据表的功能。具体实现涉及到记录源设置、临时文件创建、记录拷贝以及文件操作等步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

有一数据表ax.dbf，字段若干

有一表单，设置表格控件1个（grid1），按钮控件5个（功能分别为打开表、分页、上一页、下一页、关闭表）

假设所有文件都放在桌面上

要实现的功能是分页浏览

表单init代码

public rno,rc,pno,pc
SET SAFETY OFF
set path to C:/Documents and Settings/jwc/桌面/

打开表按钮click代码

select (select(1))
use ax.dbf
thisform.lockscreen=.t.
thisform.grid1.recordsourcetype=1
thisform.grid1.recordsource="ax"
thisform.lockscreen=.f.

分页按钮click代码

thisform.lockscreen=.t.
close databases
select (select(1))
use ax
goto top
rno=recno()
rc=reccount()
pno=1
pc=iif(rc/5-int(rc/5)>0,int(rc/5)+1,int(rc/5))
if file("axtemp.dbf")
if used("axtemp")
select axtemp
use
endif
delete file ax.temp
endif
copy to axtemp next 5
select (select(1))
use axtemp
thisform.grid1.recordsourcetype=1
thisform.grid1.recordsource="axtemp"
thisform.lockscreen=.f.

上一页按钮click代码

if pno=1
messagebox("first")
else
thisform.lockscreen=.t.
close databases
select (select(1))
use ax
rc=reccount()
pc=iif(rc/5-int(rc/5)>0,int(rc/5)+1,int(rc/5))
pno=pno-1
rno=pno*5-4
if file("axtemp.dbf")
if used("axtemp")
select axtemp
use
endif
delete file ax.temp
endif
goto (rno)
copy to axtemp next 5
select (select(1))
use axtemp
thisform.grid1.recordsourcetype=1
thisform.grid1.recordsource="axtemp"
thisform.lockscreen=.f.
endif

下一页按钮click代码

if pno=pc
messagebox("last")
else
thisform.lockscreen=.t.
close databases
select (select(1))
use ax
rc=reccount()
pc=iif(rc/5-int(rc/5)>0,int(rc/5)+1,int(rc/5))
pno=pno+1
rno=pno*5-4
if file("axtemp.dbf")
if used("axtemp")
select axtemp
use
endif
delete file ax.temp
endif
goto (rno)
if rc-rno<5
copy to axtemp next (rc-rno)
else
copy to axtemp next 5
endif
select (select(1))
use axtemp
thisform.grid1.recordsourcetype=1
thisform.grid1.recordsource="axtemp"
thisform.lockscreen=.f.
endif