运行结果：

挂起：

上一页代码：
if pno = 1
messagebox("first")
else
select(select(1))
thisform.lockscreen = .t.
close databases
select adminl
select adminl.number,joint,name,nationality from adminl where mod(recno(),2)=1 into cursor ji   &&临时表ji
select adminl.number,joint,name,nationality from adminl where mod(recno(),2)=0 into cursor ou   &&临时表ou
select ji
rc = reccount()    &&总记录
pc = iif(rc/10-int(rc/10)>0,int(rc/10)+1,int(rc/10))   &&总页数
pno = pno - 1    &&当前为第几页-1(上一页)
rno = pno*10 - 9     &&当前页第一条记录为第几条记录-9（上一页第一条记录为第几条记录）
if file("jitemp")
if used("jitemp")
select jitemp
use
endif
delete file ji.temp
endif
goto(rno)
copy to jitemp next 10
select (select(1))
use jitemp
thisform.pageframe1.page5.grid1.recordsourcetype = 1
thisform.pageframe1.page5.grid1.recordsource = "jitemp"

select ou
rc = reccount()    &&总记录
pc = iif(rc/10-int(rc/10)>0,int(rc/10)+1,int(rc/10))   &&总页数
pno = pno - 1    &&当前为第几页-1(上一页)
rno = pno*10 - 9     &&当前页第一条记录为第几条记录-9（上一页第一条记录为第几条记录）
if file("outemp")
if used("outemp")
select outemp
use
endif
delete file ou.temp
endif
goto(rno)
copy to outemp next 10
select (select(1))
use outemp
thisform.pageframe1.page5.grid2.recordsourcetype = 1
thisform.pageframe1.page5.grid2.recordsource = "outemp"
thisform.lockscreen = .f.
endif

下一页代码：
if pno = pc  &&if 当前页数等于总页数（最后一页）
messagebox("last")
else
thisform.lockscreen = .t.
close databases
select (select(1))
select adminl   &&查询adminl表
select adminl.number,joint,name,nationality from adminl where mod(recno(),2)=1 into cursor ji   &&临时表ji
select adminl.number,joint,name,nationality from adminl where mod(recno(),2)=0 into cursor ou   &&临时表ou
select ji
rc = reccount()
pc = iif(rc/10-int(rc/10)>0,int(rc/10)+1,int(rc/10))
pno = pno + 1
rno = pno*10-9
if file("jitemp")
if used("jitemp")
select jitemp
use
endif
delete file ji.temp
endif
goto(rno)
if rc-rno<10
copy to jitemp next (rc-rno+1)
else
copy to jitemp next 10
endif
select(select(1))
use jitemp
thisform.pageframe1.page5.grid1.recordsourcetype = 1
thisform.pageframe1.page5.grid1.recordsource = "jitemp"

select ou
rc = reccount()
pc = iif(rc/10-int(rc/10)>0,int(rc/10)+1,int(rc/10))
pno = pno+1
rno = pno*10-9
if file("outemp")
if used("outemp")
select outemp
use
endif
delete file ou.temp
endif
goto(rno)
if rc-rno<10
copy to outemp next (rc-rno+1)
else
copy to outemp next 10
endif
select(select(1))
use outemp
thisform.pageframe1.page5.grid2.recordsourcetype = 1
thisform.pageframe1.page5.grid2.recordsource = "outemp"
thisform.lockscreen = .f.
endif

请问出现了什么错误？？求大佬教

看过，很对不起，刚才　我已经讲过了，与你对
VFP的理解不同，我从来不用［临时表］
所以这次不能帮助你了。

如果是你 想要实现表格分栏并分页  你会怎么实现呢？

为什么要分栏分页，可以为表格每一列指定数据源来选择显示！

1、实现分栏分页是想要一次看多条信息。
2、表格每一列指定数据源来选择显示？是什么意思呢？