想实现刚开始不加载表,然后通过窗口的查询按钮加载满足条件的表
窗口查询按钮 如下:
With e.Form.Controls("项目")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = "项目 like '*" & .Value & "*'"
End If
End With
With e.Form.Controls("地址")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "地址 like '*" & .Value & "*'"
End If
End With
If Filter > "" Then
DataTables("订单").LoadFilter = "Filter"
DataTables("订单").Load
End If
请问怎么改?如何实现
[此贴子已经被作者于2022/2/18 16:52:12编辑过]