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


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

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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
jq_shang
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jq_shang
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jq_shang
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


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

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


加好友 发短信
等级：童狐 帖子：217 积分：1646 威望：0 精华：0 注册：2018/1/21 10:25:00 		  发帖心情 Post By：2019/2/14 10:22:00 [显示全部帖子]

谢谢甜版。

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


加好友 发短信
等级：童狐 帖子：217 积分：1646 威望：0 精华：0 注册：2018/1/21 10:25:00 		  发帖心情 Post By：2019/2/14 11:28:00 [显示全部帖子]

单击节点代码，错误在哪里？我还是没搞明白原理。
Dim tr As WinForm.TreeView
tr = e.Form.Controls("TreeView1")
tr.Select()
Dim nd As WinForm.TreeNode = e.Node
tr.SelectedNode = nd '到这里还没错

Dim dr As DataRow 
dr = nd.DataRow
MessageBox.show(dr("id")) '运行不到这里，已经出错了
'Dim bmxh As String = "部门ID:" & dr("id")
'nd.Tooltip = bmqc & chr(13) & chr(10) & bmxh


[此贴子已经被作者于2019/2/14 11:29:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jq_shang
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：217 积分：1646 威望：0 精华：0 注册：2018/1/21 10:25:00 		  发帖心情 Post By：2019/2/14 14:26:00 [显示全部帖子]

我太笨了，还是不明白。只好再修改一下实例发上来，再请指点。
实例要实现的功能是，删除部门节点之前，先判断部门中有没有人员。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
jq_shang
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：217 积分：1646 威望：0 精华：0 注册：2018/1/21 10:25:00 		  发帖心情 Post By：2019/2/14 15:05:00 [显示全部帖子]

先谢再看！
不行啊老大，出错啦！
那个按钮，带判断的删除节点，代码运行出错：
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode

Dim bmid As Integer
Dim dr As DataRow = nd.DataRow '获取生成此节点的行
bmid = dr("id")
'以上代码,从部门表中提取bmid
'以下代码,到员工基础表中去筛选,如果部门下面有员工,则不许删除部门
Tables("员工基础表").Filter = "[部门ID] = " & bmid
If Tables("员工基础表").Rows.Count > 0
    MessageBox.show("本部门内有员工,不能删除,只能更改部门名称,或先将部门内员工全部调出后才能删除!","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    e.Cancel = True
    Tables("员工基础表").Filter = "" '取消该表筛选恢复原样
    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()
[此贴子已经被作者于2019/2/14 15:09:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jq_shang
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：217 积分：1646 威望：0 精华：0 注册：2018/1/21 10:25:00 		  发帖心情 Post By：2019/2/14 15:32:00 [显示全部帖子]

14楼的
“

如果你要用，就用 nd.tag 获取id值

”
看不懂。
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10156 秒, 7 次数据查询