我写了段代码,首先是先循环了横竖表格,到后来我想给做个分页,可是程序加进去怎么也不出来,老是出现"真"值,
我想问一下怎么才可以实现?
谢谢

分页程序的初始化楼主应该会把？那我就不写初始化部分了。
个人经常用的分页循环形式
Dim iPage
For iPage=0 To rs.PageSize
'这里面是循环代码
IF rs.EOF Then Exit For
Next