- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于简化目录树筛选代码的请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=163842)
-- 发布时间：2021/4/26 15:47:00
-- 关于简化目录树筛选代码的请教
老师好！
我在目录树中写入了如下代码进行筛选：
Select Case e.Node.Name
Case "电脑"
Tables("表A").Filter ="[类型] like \'*电脑*\'"
Case "办公"
Tables("表A").Filter ="[类型] like \'*办公*\'"
Case "电器"
Tables("表A").Filter ="[类型] like \'*电脑*\'"
End Select
请问能不能用node.name或node.text属性进行简化处理。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
我改为：Dim td As WinForm.TreeNode
Tables("表A").Filter ="[类型] like \'" & td.text & "\'"
报错“未将对象引用设置到对象的实例”，请老师指教！
-- 发布时间：2021/4/26 15:51:00
--
Tables("表A").Filter ="[类型] like \'%" & e.Node.name & "%\'"