 加好友  发短信
等级：小狐
帖子：342
积分：3451
威望：0
精华：0
注册：2014/8/20 20:14:00
|
[求助]目录树，提示编译错误  Post By：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 
|
|
