以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 目录树 单列分类 操作表增加商品  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104165)

--  作者:dxjwlf
--  发布时间:2017/7/24 18:04:00
--  求助 目录树 单列分类 操作表增加商品
问题: 1、目录树里,有两个所有商品,百思不得其解。
            2、系统崩溃,报错 未将对象引用实例。systemId 事件什么错误
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170724174402.png
图片点击可在新窗口打开查看

--  作者:dxjwlf
--  发布时间:2017/7/24 18:08:00
--  
上件项目文件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:help1.rar
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:help1.table




--  作者:有点甜
--  发布时间:2017/7/24 18:25:00
--  

1、删除代码

 

trv.Nodes.Insert("所有商品",0)

 

2、如何操作以后,可以报错?详细说明


--  作者:dxjwlf
--  发布时间:2017/7/24 19:14:00
--  
删除代码,我试过。。一是窗口事件,一个保存刷新。。。。
我上传了项目。大神帮我看下。 关闭foxtable 时 说系统崩溃,,退不出。强行关闭的。


--  作者:有点蓝
--  发布时间:2017/7/24 20:51:00
--  
不要使用相同的名称,比如:trv.Nodes.Insert("显示全部",0)

NodeMouseClick改为

If e.Node.Text <> "显示全部" Then
    Tables("商品信息").Filter = "sys_分类 like \'" & e.Node.FullPath & "%\'"
Else
    Tables("商品信息").Filter = ""
End If

至于退出的报错我测试没有问题,请更新到最新版本的狐表再测试
[此贴子已经被作者于2017/7/24 21:51:58编辑过]

--  作者:dxjwlf
--  发布时间:2017/7/24 21:11:00
--  
有点蓝大神,谢谢。