如下：如果是目前是第一页，将不会执行重新加载的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
dt.LoadFilter = filter
If dt.LoadPage <> 0 Then
dt.LoadTop = 1
dt.LoadPage = 0
dt.Load()
dt.LoadChildren("租赁项目结转明细表", "合同编号", "合同编号")
End If
此主题相关图片如下：1.jpg
[此贴子已经被作者于2019/8/28 13:48:04编辑过]
加好友 
发短信
Post By：2019/8/28 13:04:00 [只看该作者]
