- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请问这段错误什么情况？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27257)
-- 发布时间：2012/12/26 17:26:00
-- [求助]请问这段错误什么情况？
nodemousedoubleclick事件里的代码为：
Dim s As String = e.Node.Name
Dim i As Integer = s.IndexOf(" ")
s = s.SubString(0,i)
Dim trv As WinForm.TreeView = e.Form.Controls("综合部物品分类设置TreeView1")
If e.Node.Name = "全部" Then
Tables("综合部物品分类设置_综合部物品分类设置Table1").Filter = ""
Else
Tables("综合部物品分类设置_综合部物品分类设置Table1").Filter = "分类编号 Like \'" & s & "*\'"
End If
此主题相关图片如下：20121226172504.jpg
-- 发布时间：2012/12/26 17:42:00
--
msgbox(i)看一下，还有msgbox(e.Node.Name)
改成这样吧
Dim s As String = e.Node.Text
Dim i As Integer = s.IndexOf(" ")
s = s.SubString(0,i)
Dim trv As WinForm.TreeView = e.Form.Controls("综合部物品分类设置TreeView1")
If e.Node.Name = "全部" Then
Tables("综合部物品分类设置_综合部物品分类设置Table1").Filter = ""
Else
Tables("综合部物品分类设置_综合部物品分类设置Table1").Filter = "分类编号 Like \'" & s & "*\'"
End If
-- 发布时间：2012/12/27 13:34:00
--
改成text就行了 什么情况？
-- 发布时间：2012/12/27 13:46:00
--
以下是引用gaoyong30000在2012-12-27 13:34:00的发言：
改成text就行了 什么情况？
改成text就行了 什么情况？
你看一下name的值就知道了。msgbox(e.Node.Name)
-- 发布时间：2012/12/28 17:57:00
--
多谢了~~~~
-- 发布时间：2012/12/28 22:05:00
--
兄弟，你的系统越做越大了哈，恭喜
-- 发布时间：2012/12/30 16:46:00
--
呵呵~比较粗糙，明年准备动大刀改造下~