以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]目录树问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114089)
--  作者：hahahehe21
--  发布时间：2018/1/28 18:08:00
--  [求助]目录树问题？
部门目录树由表DM_BM中列bmqc生成，表DM_BM的ID列与表DM_RY的BM_ID列相同。

想实现双击目录树中部门名称实现对表DM_RY按部门进行筛选，代码应该怎么改？
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[ ] = \'" & dr(" ") & "\'"
            
    End Select
End If
Tables("DM_RY").Filter = Filter
--  作者：hahahehe21
--  发布时间：2018/1/28 18:10:00
--  
奇怪了，点击添加附件无反应？无法上传附件
--  作者：有点甜
--  发布时间：2018/1/28 18:11:00
--  
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[BM_ID] = \'" & dr("ID") & "\'"
    End Select
End If
Tables("DM_RY").Filter = Filter
--  作者：hahahehe21
--  发布时间：2018/1/28 18:18:00
--  
ok，谢谢甜老师，我总是把问题想复杂了
--  作者：hahahehe21
--  发布时间：2018/1/28 18:51:00
--  
bmqc列的内容是这个格式的，筛选代码对第二第三级无效，代码要怎么改？
彩印(新)\\业务部\\设计
彩印(新)\\业务部\\业务一组
彩印(新)\\业务部\\业务二组
彩印(新)\\彩印制造中心\\调度室
彩印(新)\\彩印制造中心\\技术部
彩印(新)\\彩印制造中心\\印刷部
彩印(新)\\彩印制造中心\\印后部
彩印(新)\\彩印制造中心\\质检部
--  作者：有点甜
--  发布时间：2018/1/28 23:45:00
--  

1、你目录树内容截图，表格数据截图，发上来看看。

 

2、不会做上传具体实例。