以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教目录树问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94250)
--  作者：13861676007
--  发布时间：2016/12/19 22:54:00
--  请教目录树问题
我做了一个目录树，另做了二个文本框，用来添加根节点，和子节点，做一个按纽，点击按纽后要求，将文本框中的根节点和子节点，同时添加到目录树中，现在按一次安纽只能添加一个，请问有解决办法吗？
--  作者：有点蓝
--  发布时间：2016/12/19 22:56:00
--  
贴出你的代码
--  作者：13861676007
--  发布时间：2016/12/21 0:55:00
--  
Dim ff3 As DataRow
Dim dd1 As WinForm.TextBox = e.Form.Controls("Textyj")
Dim dd2 As WinForm.TextBox = e.Form.Controls("Textrj")
If dd1.text="" Or dd2.text=""
    MessageBox.Show("请输入部门,不可为空值!")
    Return
End If
ff3 = DataTables("部门表").Find("[gj]= \'" & dd1.text & "\' and  [bm]=\'" & dd2.text & "\'")
If ff3 IsNot Nothing Then
    MessageBox.Show("部门已存在")
    Return
Else
    ff3 = DataTables("部门表").Find("[gj]= \'" & dd1.text & "\'")
    If ff3 IsNot Nothing Then
        Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
        Dim nd As  WinForm.TreeNode =trv.SelectedNode
        trv.SelectedNode = trv.Nodes(dd1.text)
        nd.Nodes.Add(dd2.value)
    Else
        Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
        Dim nd As  WinForm.TreeNode=trv.SelectedNode
        trv.Nodes.Add(dd1.text)  ****
        nd.Nodes.add(dd2.value)  ***
    End If
End If
**主要是打“*” 号的代码为什么只能执行前一个，后一个不执行，我把前一个屏了，后一个代码就执行了。
--  作者：有点蓝
--  发布时间：2016/12/21 8:50:00
--  
试试
......
Else
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.Nodes.Add(dd1.text)
nd.Nodes.add(dd2.text)
    End If
......
--  作者：13861676007
--  发布时间：2016/12/22 20:30:00
--  
谢谢老师，试好了。