Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于目录树问题请教


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

主题：关于目录树问题请教
帅哥哟，离线，有人找我吗？
jq_shang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：217 积分：1646 威望：0 精华：0 注册：2018/1/21 10:25:00 		关于目录树问题请教  发帖心情 Post By：2019/2/13 22:08:00 [只看该作者]

部门管理功能窗口，根据部门表，自动生成了部门树。编辑部门树，可以同步编辑部门表。问题：对于新增节点，直接操作删除会提示出错。当然部门树刷新后就能正常删除了，但是，刷新操作会使所有节点关闭，用户体验感觉不便。请教，如何改进代码，使新增树形节点可以直接删除？

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/13 22:57:00 [只看该作者]

做一个具体的实例发上来测试。

 

不要用datarow，试试用fullpath、fullname http://www.foxtable.com/webhelp/scr/2690.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
jq_shang
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：217 积分：1646 威望：0 精华：0 注册：2018/1/21 10:25:00 		  发帖心情 Post By：2019/2/13 23:11:00 [只看该作者]

一、窗口afterload代码：
Dim bt4 As WinForm.Button = e.Form.Controls("Button4")
bt4.PerformClick()'这是一个刷新按钮
刷新按钮代码如下：
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Select Case _userjibie
    Case "一级"
        tr.BuildTree("部门表", "一级|二级|三级|四级","","排序号")
        tr.Nodes.Insert("显示所有人员",0)
    Case "二级"
        tr.BuildTree("部门表", "二级|三级|四级","","排序号")
    Case "三级"
        tr.BuildTree("部门表", "三级|四级","","排序号")
End Select
二、新增节点按钮：
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.SelectedNode
If nd.level = 3 Then
    MessageBox.Show("最多允许四层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If

If nd IsNot Nothing Then
    Dim dr As DataRow = DataTables("部门表").AddNew
    dr.Save
    dr("排序号") = dr("id")
    Select Case nd.level
        Case 0
            dr("一级") = nd.Text
            dr("二级") = "新节点"
        Case 1
            dr("一级") = nd.ParentNode.Text
            dr("二级") = nd.text
            dr("三级") = "新节点"
        Case 2
            dr("一级") = nd.ParentNode.parentnode.Text
            dr("二级") = nd.ParentNode.Text
            dr("三级") = nd.text
            dr("四级") = "新节点"
    End Select
End If

nd = nd.Nodes.Add("新节点")
tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()
三、树形节点结束编辑后的代码aftereditNode：
If e.NewText = "" Then
    e.Cancel = True
    Return
End If
Dim pth() As String = e.Node.FullPath.Split("\")
Select Case e.node.Level
    Case 0
        DataTables("部门表").ReplaceFor("一级",e.NewText,"一级 = '" & pth(0) & "'")
    Case 1
        DataTables("部门表").ReplaceFor("二级",e.NewText,"一级 = '" & pth(0) & "' And 二级 = '" & pth(1) & "'")
    Case 2
        DataTables("部门表").ReplaceFor("三级",e.NewText,"一级 = '" & pth(0) & "' And 二级 = '" & pth(1) & "' And 三级 = '" & pth(2) & "'")
    Case 3
        DataTables("部门表").ReplaceFor("四级",e.NewText,"一级 = '" & pth(0) & "' And 二级 = '" & pth(1) & "' And 三级 = '" & pth(2) & "' and 四级 = '" & pth(3) & "'")
End Select
e.Node.Name = e.NewText
'以下设置自动保存
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim fn As String = ProjectPath & "部门目录树.foxtr"
tr.Save(fn)
四、删除按钮代码：
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
'MessageBox.show(tr.name)
'MessageBox.show(nd.name),经过测试,程序执行到这里没有出错
If nd IsNot Nothing Then
    Dim bmid As Integer
    Dim dr As DataRow = nd.DataRow '获取生成此节点的行
    bmid = dr("id")
'MessageBox.show(bmid) 经过测试,程序执行不到这里就出错啦!找不到对象的实例.

    Tables("员工基础表").Filter = "[部门ID] = " & bmid
    If Tables("员工基础表").Rows.Count > 0
        MainTable = Tables("员工基础表")
        MessageBox.show("本部门内有员工,不能删除,只能更改部门名称,或先将部门内员工全部调出后才能删除!","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
        e.Cancel = True
        MainTable = Tables("部门表")
    Else
        Dim pth() As String = nd.FullPath.Split("\")
        Select Case nd.Level
            Case 0
                DataTables("部门表").DeleteFor("一级 = '" & pth(0) & "'")
            Case 1
                DataTables("部门表").DeleteFor("一级 = '" & pth(0) & "' And 二级 = '" & pth(1) & "'")
            Case 2
                DataTables("部门表").DeleteFor("一级 = '" & pth(0) & "' And 二级 = '" & pth(1) & "' And 三级 = '" & pth(2) & "'")
            Case 3
                DataTables("部门表").DeleteFor("一级 = '" & pth(0) & "' And 二级 = '" & pth(1) & "' And 三级 = '" & pth(2) & "' and 四级 = '" & pth(3) & "'")
        End Select
        nd.Delete()
    End If
    tr.Select()
End If
五、对于已有的节点，或者新增节点后执行代码刷新树形，删除按钮代码执行正常，节点和表中数据同步删除成功。
[此贴子已经被作者于2019/2/13 23:20:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/14 8:53:00 [只看该作者]

改成

 

    Dim dr As DataRow = nd.DataRow '获取生成此节点的行
    If dr Is Nothing Then
        msgbox(123)
        msgbox("这里自己用fullpath合成条件，不能用id")
    else   
        bmid = dr("id")
        Tables("员工基础表").Filter = "[部门ID] = " & bmid
    End if
 回到顶部
帅哥哟，离线，有人找我吗？
jq_shang
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：217 积分：1646 威望：0 精华：0 注册：2018/1/21 10:25:00 		  发帖心情 Post By：2019/2/14 9:23:00 [只看该作者]

请教甜版，按您的要求做了个演示，请您过目。单击新节点已经出错了，说明新增节点的动作没有做到位，不知道如何做。另外，上传的附件自己看不到，您能看到附件吗？
[此贴子已经被作者于2019/2/14 9:29:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/14 9:23:00 [只看该作者]

以下是引用jq_shang在2019/2/14 9:23:00的发言：
按您的要求做了个演示，请您过目。单击新节点已经出错了。

 

具体项目发上测试。

 

认认真真看懂4楼啊。
 回到顶部
帅哥哟，离线，有人找我吗？
jq_shang
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：217 积分：1646 威望：0 精华：0 注册：2018/1/21 10:25:00 		  发帖心情 Post By：2019/2/14 9:24:00 [只看该作者]

我自己看不到上传的附件哈。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/14 9:25:00 [只看该作者]

认认真真看懂4楼，合成类似这样的条件

 

"一级 = '" & pth(0) & "' And 二级 = '" & pth(1) & "' And 三级 = '" & pth(2) & "'"
 回到顶部
帅哥哟，离线，有人找我吗？
jq_shang
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：217 积分：1646 威望：0 精华：0 注册：2018/1/21 10:25:00 		  发帖心情 Post By：2019/2/14 9:30:00 [只看该作者]

项目按附件发上了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/14 9:34:00 [只看该作者]

这段代码多余，请删除

 


    Dim bmid As Integer
    Dim dr As DataRow = nd.DataRow '获取生成此节点的行
    bmid = dr("id")
    MessageBox.show(bmid)
 回到顶部
总数 24 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询