老师,我通过查询页面,过滤出单据状态为“审核”的单据,怎么样做到点击下一页的时候,还是在过滤出单据状态为“审核”的表上进行上下页呢End With
With wb.AddButtonGroup("","btg2", False)
If page > 0 Then
.Add("btnFirst", "第一页","","cxsj.htm?page=0")
.Add("btnPrev", "上一页","","cxsj.htm?page=" & page - 1)
Else
.Add("btnFirst", "第一页").Kind = 1
.Add("btnPrev", "上一页").Kind = 1
End If
If Endrow < count Then
.Add("btnNext", "下一页","","cxsj.htm?page=" & page + 1)
.Add("btnLast", "最末页","","cxsj.htm?page=" & pages - 1)
Else
.Add("btnNext", "下一页").Kind = 1
.Add("btnLast", "最末页").Kind = 1
End If
End With