如下：如果是目前是第一页，将不会执行重新加载的load（）函数，   第一页 ，下一页 ，上一页，最末页  加载filter条件应该写在哪里啊？

Dim dt As DataTable=DataTables("租赁合同结转情况表")

Dim filter As String="应结转而未结转的年份 Like \'%"& Forms("确认一条合同结转").Controls("ComboBox1").text &"%\'"

Dim s1 As String = e.Form.Controls("TextBox1").value

Dim fds As String

If s1 IsNot Nothing

    fds="客户名称 Like \'%" & s1 & "%\'"

    filter=filter & " and "

    filter=filter & fds

End If