以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何完善目录树代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189629)
--  作者：老鼠
--  发布时间：2023/12/12 20:33:00
--  [求助]如何完善目录树代码
如题：如何完善目录树代码：如何完善代码才能使下图右边的，达到左边的效果。

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20231212193919.png
图片点击可在新窗口打开查看
这是目前代码：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:eventcode.zip

[此贴子已经被作者于2023/12/12 20:38:53编辑过]
--  作者：有点蓝
--  发布时间：2023/12/12 20:34:00
--  
参考：http://www.foxtable.com/webhelp/topics/2741.htm
--  作者：老鼠
--  发布时间：2023/12/12 20:40:00
--  
这个帮助文件我看了，也编辑了，但都报错或者通不过。
--  作者：有点蓝
--  发布时间：2023/12/12 21:07:00
--  
写了什么代码，报什么错？
--  作者：老鼠
--  发布时间：2023/12/12 23:47:00
--  

请指导

图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2023/12/13 9:42:00
--  
先看2遍：http://www.foxtable.com/webhelp/topics/1284.htm

Tables("订单").Filter = "[产品] = \'PD01\'"  \'字符用单引号括起来
Tables("订单").Filter = "[日期] = #3/17/1999#"  \'日期用#括起来
Tables("订单").Filter = "[折扣] = 0.1"  \'数值直接使用

如果要别人直接帮改代码，最好是直接发代码文字，不要发截图