[求助]目录树，提示编译错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：[求助]目录树，提示编译错误