标题：加载树与模糊搜索不能同时起作用
1.在窗口中设有加载树和模糊搜索框，问题是加载树点击完了之后，模糊搜索却会从全部数据内搜索，而不是在加载树所加载的数据里面搜索。
2.如何才能让模糊搜索的范围在加载树加载出来的数据范围内搜索？
3.如何才能在进入窗口的时候默认只加载第一页数据。而不是加载全部？
窗体AfterLoad加载事件代码如下：
Dim dt As DataTable = DataTables("web检查问题库子表")
dt.LoadFilter = filter
dt.Load(False)
Dim trv As WinForm.LoadTree = e.Form.Controls("LoadTree1")
trv.Build(Tables("web检查问题库子表"), "检查日期 YM|检查类型|片区|项目名称", 1000)
4.查询按钮单击代码如下：
Dim dt1 As DataTable = DataTables("web检查问题库子表")
'1设置加载条件
Dim filter As String ="1=1"
Dim cb As WinForm.TextBox = e.Form.Controls("TextBox_存在问题")
If cb.Text.Length > 0 Then
filter &= " and 存在问题 like '%" & cb.Text & "%'" '项目名称列模糊搜索
End If
Dim cb1 As WinForm.TextBox = e.Form.Controls("TextBox_违反条款")
If cb1.Text.Length > 0 Then
filter &= " and 违反条款 like '%" & cb1.Text & "%'" '项目名称列模糊搜索
End If
Dim cb2 As WinForm.TextBox = e.Form.Controls("TextBox_项目名称")
If cb2.Text.Length > 0 Then
filter &= " and 项目名称 like '%" & cb2.Text & "%'" '项目名称列模糊搜索
End If
Dim cb3 As WinForm.TextBox = e.Form.Controls("TextBox_突出问题")
If cb3.Text.Length > 0 Then
filter &= " and 突出问题填1 like '%" & cb3.Text & "%'" '项目名称列模糊搜索
End If
'2表格加载数据
If filter = "1=1" Then
If MessageBox.Show("不设置条件，当加载数量较大时会有卡顿，确定要加载？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.no Then
Return
End If
End If
dt1.LoadFilter = filter
dt1.Load(False)
Dim trv As WinForm.LoadTree = e.Form.Controls("LoadTree1")
trv.Build(Tables("web检查问题库子表"), "检查日期 YM|检查类型|片区|项目名称", 1000)
此主题相关图片如下：qq截图20240829202743.jpg