Foxtable(狐表)用户栏目专家坐堂 → 关于编辑目录树的问题!


  共有3250人关注过本帖树形打印复制链接

主题:关于编辑目录树的问题!

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/18 16:31:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/19 15:52:00 [显示全部帖子]

 你可以在关闭窗口的时候,把对应记录删除。代码

 

DataTables("作业区域").DeleteFor("车间名称 is null or 设备名称 is null or 备注 is null")


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/19 15:54:00 [显示全部帖子]

或者增加子节点的代码这样写

 

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView2")
nd = tr.SelectedNode
If nd IsNot Nothing Then
   
    Select Case nd.Level
        Case 0
        Case 1
        Case 2
            Dim dr As DataRow = DataTables("作业区域").AddNew
            dr("区域") = nd.ParentNode.ParentNode.Text
            dr("车间名称") = nd.ParentNode.Text
            dr("设备名称") = nd.text
            dr("备注") = "新节点"
        Case 3
            MessageBox.Show("最多允许四层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)  
    End Select
   
   
    nd = nd.Nodes.Add("新节点")
    tr.SelectedNode = nd
    tr.Select()
    tr.BeginEdit()
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/24 16:06:00 [显示全部帖子]

以下是引用ypp1420在2014-12-24 15:57:00的发言:
甜版主你好,上次跟你请教的编辑目录树的问题,你给写的那个代码执行起来没有问题,但是如果增加第5层节点,会出现提示:“最多允许四层节点" 点ok后第5层节点还是会增加,请甜版主费心给指导一下!谢谢了!

 

MessageBox.Show("最多允许四层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)  

Return


 回到顶部