如下:如果是目前是第一页,将不会执行重新加载的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编辑过]