以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于目录树新增问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93798)
--  作者：benwong2013
--  发布时间：2016/12/7 12:03:00
--  关于目录树新增问题
e.Form.DisableXButton
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.BuildTree("B_Bu", "部门|单位")
Dim Trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes \'遍历所有节点
        nd.Text = nd.text & "|" & nd.DataRow("单位代码") 
Next

打开窗口如以下：

图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看


增加单位的代码：
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.SelectedNode
If nd IsNot Nothing Then
    If nd.Level = 1 Then
        MessageBox.Show("最多允许2层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Dim dr As DataRow = DataTables("B_Bu").AddNew
        If nd.Level = 0 Then
            dr("部门") = nd.Text
            dr("单位") = "新单位"
        End If
        nd = nd.Nodes.Add("新单位")
        tr.SelectedNode = nd
        tr.Select()
        tr.BeginEdit()
    End If
End If

发现以上的代码在新增的时候会在输入的内容增加一条|线

图片点击可在新窗口打开查看此主题相关图片如下：5.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2016/12/7 12:08:13编辑过]
--  作者：有点蓝
--  发布时间：2016/12/7 14:04:00
--  
dr("部门") = nd.Text.Split("|")(0)