主题：[求助]递归目录树

递归目录树，要实现目录树节点 编码名称在左边，编号规则（数字）在右边

内部函数修改后，有一些问题，求帮助

1、目录树三级节点不能筛选行

2、目录树三级节点没在二级节点下面

     04

     0401

     040101

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:递归目录树名称左编号右.foxdb

此主题相关图片如下：问题.jpg

 

 文本控件，显示当前选择目录树节点，下面代码怎么修改呢？

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim kmf As String = dr("编码名称")
e.Form.Controls("TextBox1").Text = e.Node.FullName & kmf

1、显示全部路径
2、显示当前路径

目录树的 二级、三级节点 名称后面的 编码规则（阿拉伯数字）只显示最后两位，代码怎么修改呢？

 如下图

方案0401 显示为 方案01

大班组040101  显示为 大班组 01

小班040102     显示为  小班    02

此主题相关图片如下：gg.jpg

师傅出手帮帮吧，这个我搞不定

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:递归目录树名称左编号右.foxdb

 师傅，其实想要的是：在目录树里面只显示后面2为数字
不是在文本框，可以吗？
 

 因为编码只显示最后2位，下面目录树对表筛选报错，代码怎么修改呢？
Dim trv As WinForm.TreeView = e.Form.Controls("部门档案.tv")
If  e.Node.Name = "全部" Then
    Tables("部门档案").Filter = ""
Else
    Tables("部门档案").Filter = "编码规则  Like '" & e.Node.name & "%'"
End If