两个不同数据库表的分页显示解决方案

整理日期：2007年08月05日 【字体：大 中 小】

page_size1=5 '默认第一个表部分数据的每页显示数
page_size2=5 '默认第二个表部分数据的每页显示数

page_count1=CInt(record_count1/page_size1)
If (record_count1 Mod page_size1)<(page_size1/2) Then page_count1=page_count1+1 '得到第一部分数据的页数
page_count2=CInt(record_count2/page_size2)
If (record_count2 Mod page_size2)<(page_size2/2) Then page_count2=page_count2+1'得到第二部分数据的页数

if Cint(page_count2)=cint(page) then '假设第二部分数据一定少,这里断定是否当前页是少的那分数据的最后一页

thepageRecordcount=record_count2-(page-1)*5 '第二部分数据的最后一页的数据显示条数
page_size1=10-cint(thepageRecordcount) '第一部分数据在第二部分最后页的显示条数 '
page_size1=cint(thepageRecordcount) '得到第一部分在本页的显示条数
elseif cint(page)>cint(page_count2) then '这之后将全是第一部分数据

page_size1=10
page_size2=0

end if



page_count=CInt(record_count/(page_size1+page_size2) '全部两类一起的分页数
If (record_count Mod (page_size1+page_size2))<((page_size1+page_size2)/2) Then page_count=page_count+1

If Page < 1 Then
Page = 1
End If
If Page > page_count Then