'recno=(page-1)*rsano.pagesize+ipage记录编号计算公式
用一个算法就可以计算这个算法放在分页的循环里
楼层计算公式:(当前页数-1)*每页的记录数+分野循环的变量
完整的分夜循环示例。
'定义循环变量
dim iPage
For iPage=1 to rsano.Pagesize
'recno=(page-1)*rsano.pagesize+ipage记录编号计算公式
'…………这里省略了显示数据代码
rsano.MoveNext
IF rsano.EOF Then
Exit For
End If
Next