| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- TextChanged 执行第一次能出结果，第二次变值 就死机，无弹错。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101065) |
| -- 作者：yancheng -- 发布时间：2017/5/24 13:55:00 -- TextChanged 执行第一次能出结果，第二次变值 就死机，无弹错。 Dim txt As String = e.Form.Controls("textbox2").text Dim tbl As Table = Tables("添加清单_table3") Dim filter As String If txt = "" Then Filter = "" Return Else txt = "\'%" & txt & "%\'" Filter = "子目编码 like " & txt & " Or 子目名称 Like " & txt & " Or 项目特征描述 Like " & txt End If If filter > "" Then DataTables("清单指引").RemoveFor(filter) DataTables("清单指引").AppendLoad(filter) tbl.filter = filter Else DataTables("清单指引").LoadFilter = filter DataTables("清单指引").load tbl.filter = filter End If e.Form.Controls("Table3").Table.AutoSizeRows()
|
| -- 作者：有点色 -- 发布时间：2017/5/24 14:05:00 -- 不是死机，是执行load需要事件吧？数据越多，延迟越久。
不建议写到textchanged，单独做个按钮吧。 |
| -- 作者：yancheng -- 发布时间：2017/5/24 14:41:00 -- 嗯。可以了。做了个按钮，再做一个快捷键来操作。不过，还是没有直接用：值 变化执行，好。 |
| -- 作者：有点色 -- 发布时间：2017/5/24 15:04:00 -- 你加载的数据太多了吧？导致太慢了？ |