主题：求教这个NodeMouseDoubleClick的代码如何写。

内容如截图，在NAVBAR里添加了目录树。希望双击某个节点就加载某列里有特定内容的行。小弟想用SELECT CASE语句。但每个子节点内容都一样的啊！！！想破脑袋也不知道该怎么写，怕引起冲突。如图所示，点击嘉陵区蔬果种植类就会加载地区列是嘉陵区，分类列是蔬果种植类的行。先严重谢谢了。。

 

 

 

Select Case e.Node.Level
    Case 0
        msgbox(e.Node.Text)
    Case 1
        Dim ary() As String = e.Node.FullPath.Split("\")
        msgbox(ary(0))
        msgbox(ary(1))
End Select

 

甜老师，上面的代码具体是个什么意思。。。晕了。先谢谢了。。

 意思是分别获取得到值，然后你设置加载条件就行了

Select Case e.Node.FullPath
    Case 

 无语。例子发上来

麻烦甜老师了。窗口是做好了的。都还没运用。

Select Case e.Node.Level
    Case 0
        If e.Node.Text = "全市" Then
            DataTables("表A").LoadFilter = ""
        Else
            DataTables("表A").LoadFilter = "区域 = '" & e.Node.Text & "'"
        End If
    Case 1
       
        Dim ary() As String = e.Node.FullPath.Split("\")
        If ary(0) = "全市" Then
            DataTables("表A").LoadFilter = "第2列 = '" & ary(1) & "'"
        Else
            DataTables("表A").LoadFilter = "区域 = '" & ary(0) & "' and 第2列 = '" & ary(1) & "'"
        End If
End Select

DataTables("表A").Load

谢谢！！！

甜老师你太厉害了。这段代码我模模糊糊的都看不懂啊。。。写上去就已经可以了！！按照我的想法要写SELECT语句，排除法要写很多的。哎，又一次让我看到了差距，高山仰止啊。离高手差距太大了。