- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]目录树，提示编译错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56897)
-- 发布时间：2014/9/15 2:20:00
-- [求助]目录树，提示编译错误
If e.NewText ="" Then
e.Cancel = True
Return
End If
Dim pth() As String = e.Node.FullPath.Split("\\")
Select Case e.node.Level
Case 0
DataTables("电气工程量").ReplaceFor("楼层_名称",e.NewText,"楼层_名称 = \'" & pth(0) & "\'")
Case 1
DataTables("电气工程量").ReplaceFor("构件_名称",e.NewText,"楼层_名称 = \'" & pth(0) & "\' And 构件_名称 = \'" & pth(1) & "\'")
Case 2
DataTables("电气工程量").ReplaceFor("回路_编号",e.NewText,"楼层_名称 = \'" & pth(0) & "\' And 构件_名称 = \'" & pth(1) & "\' And 回路_编号 = \'" & pth(2) & "\'")
End Select
e.Node.Name = e.NewText
此主题相关图片如下：002.jpg
-- 发布时间：2014/9/15 8:27:00
--
你这个代码写在哪里?
只有AfterEditNode 这个事件才有newText 的