- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 加载树与模糊搜索不能同时起作用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193256)
-- 发布时间：2024/8/29 20:28:00
-- 加载树与模糊搜索不能同时起作用
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)
-- 发布时间：2024/8/29 20:29:00
--
此主题相关图片如下：qq截图20240829202743.jpg
-- 发布时间：2024/8/29 20:35:00
--
1、查询按钮改为使用筛选，不要使用加载：http://www.foxtable.com/webhelp/topics/0448.htm