- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 筛选加载问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191563)
-- 发布时间：2024/4/22 13:38:00
-- 筛选加载问题
Dim txt As String = e.Form.Controls("textBox1").Text
Dim tbl As Table = Tables("开票资料")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.DataTable.loadFilter = "管辖部门 Like " & txt & " Or 开票公司 Like " & txt & " Or 入账公司 Like " & txt & "Or 回款金额 Like " & txt & "Or 开票金额 Like " & txt
tbl.DataTable.load
End If
当删除到最后一个字符的时候，，数据不会加载回来
此主题相关图片如下：1713764083490.png
此主题相关图片如下：1713764095806.png
-- 发布时间：2024/4/22 14:09:00
--
删除最后一个字符以后，字符数据是空的，当然tbl.filter=""就起作用了，表显示的是所有数据（是指清除之前已经加载的所有数据）
想删除所有数据以后，加载所有数据
If txt = "" Then
tbl.DataTable.loadFilter ＝ ""
tbl.DataTable.loadFilter ＝ ""
tbl.DataTable.load
else
*****
end if
正常情况下，如果是做查询业务，不输入任何关键字，不出数据为好，否则数据量过大时，加载耗时较多
或者直接使用数据表，查询时，用filter，而不是重载数据
[此贴子已经被作者于2024/4/22 14:11:02编辑过]
-- 发布时间：2024/4/22 14:29:00
--
谢谢，