比如
RS.PageSize=10
向上翻页
if RS.AbsolutePage>1 then
RS.AbsolutePage = RS1.AbsolutePage -1
RS.Refresh
end if
向下翻页
if RS.AbsolutePage<RS.PageCount then
RS.AbsolutePage = RS1.AbsolutePage +1
RS.Refresh
end if
RS.PageSize=10
向上翻页
if RS.AbsolutePage>1 then
RS.AbsolutePage = RS1.AbsolutePage -1
RS.Refresh
end if
向下翻页
if RS.AbsolutePage<RS.PageCount then
RS.AbsolutePage = RS1.AbsolutePage +1
RS.Refresh
end if
控件是不知道的,是你告诉它的.