以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选加载问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191563)

--  作者:wlj88868
--  发布时间: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
图片点击可在新窗口打开查看

--  作者:chnfo
--  发布时间:2024/4/22 14:09:00
--  
删除最后一个字符以后,字符数据是空的,当然tbl.filter=""就起作用了,表显示的是所有数据(是指清除之前已经加载的所有数据)

想删除所有数据以后,加载所有数据
If txt = "" Then
    tbl.DataTable.loadFilter = ""
    tbl.DataTable.load
else 
    *****
end if 

正常情况下,如果是做查询业务,不输入任何关键字,不出数据为好,否则数据量过大时,加载耗时较多

或者直接使用数据表,查询时,用filter,而不是重载数据

[此贴子已经被作者于2024/4/22 14:11:02编辑过]

--  作者:wlj88868
--  发布时间:2024/4/22 14:29:00
--  

谢谢,