加载树与模糊搜索不能同时起作用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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)

主题：加载树与模糊搜索不能同时起作用