| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 目录树筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179341) |
| -- 作者：asionwong -- 发布时间：2022/8/19 9:58:00 -- 目录树筛选 表中有一列为“属性”不作为目录树的筛选节点，但希望当取消所有的节点以后，表筛选“属性=‘错误’”，而不是取消所有的筛选，怎么做？谢谢 |
| -- 作者：有点蓝 -- 发布时间：2022/8/19 10:01:00 -- 表格BeforeFilter事件:http://www.foxtable.com/webhelp/topics/2059.htm if e.Table.Filter = "" then e.Filter = “属性=‘错误’” end if
|
| -- 作者：asionwong -- 发布时间：2022/8/19 10:10:00 -- 窗口表格貌似没有BeforeFilter这个属性 |
| -- 作者：asionwong -- 发布时间：2022/8/19 10:17:00 -- 能不能在目录树的Afterckecknode里面设置？ |
| -- 作者：asionwong -- 发布时间：2022/8/19 10:18:00 -- For Each nd In trv.AllNodes If nd.Checked Then Dim rts() As String = nd.FullPath.Split("\\") Dim val As String = "" For i As Integer = 0 To rts.length - 1 If val > "" Then val = val & " And " End If val = val & nms(i) & " = " & qts(i) & rts(i) & qts(i) Next If flt > "" Then flt = flt & " Or (" & val & ")" Else flt = val End If End If Next 在这个之后怎么加个条件？
[此贴子已经被作者于2022/8/19 10:18:20编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/8/19 10:36:00 -- if flt = “” then flt = “属性=‘错误’” endif Tables("油品录入_table1").Filter=flt
|
| -- 作者：asionwong -- 发布时间：2022/8/19 10:54:00 -- 谢谢 |