主题：[求助] 主窗口功能实现

你弹出msgbox(e.Table.Name)是什么？根据弹出值写表名不就好了？

想要实现如下图功能：我TreeView1的NodeMouseDoubleClick命令该怎么修改？

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.Text <> "机房/设备/槽位板件" Then

    Select Case e.Node.Level

        Case 0

            Filter = "[机房名称] = '" & dr("机房名称") & "'"

        Case 1

            Filter = "[机房名称] = '" & dr("机房名称") & "' And [网元名称] = '" & dr("网元名称") & "'"

        Case 2

            Filter = "[机房名称] = '" & dr("机房名称") & "' And [网元名称] = '" & dr("网元名称") & "' And [板件槽位] = '" & dr("板件槽位") & "'"

Case 3

Filter = "[机房名称] = '" & dr("机房名称") & "' And [网元名称] = '" & dr("网元名称") & "' And [板件槽位] = '" & dr("板件槽位") & "'"

    End Select

End If

Tables("设备端口业务清单表").Filter = Filter

此主题相关图片如下：20163398254793.jpg

beforeSelectNode

 

e.Sender.CollapseAll

 

-------------------------------------------

 

afterSelectNode

 

e.Node.Expand

此主题相关图片如下：360截图20160304083902622.jpg

 看看你各个列的列属性（特别是有 列表项目 的列），应该是引用了这列，但这列删除了。

加一列辅助列

 

省公司      值0

一类公司   值 1

依次类推....

此主题相关图片如下：360截图20160306202147562.jpg

调整不了的

窗口的AfterLoad中写有命令如下：

Dim dt1 As DataTable = DataTables("分公司列表")

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView2")

trv1.BuildTree(dt1, "分公司类别|分公司")

trv1.Nodes.Insert("分公司列表",0)

trv1.Sort = "编号 DESC"

trv1.StopRedraw '停止绘制目录树

trv1.ResumeRedraw '恢复绘制目录树

此主题相关图片如下：360截图20160307090747813.jpg