主题：请教数据目录树的建立

在输入人员的部门分配时，想通过目录树形式来完成。为此，已建立一个单位编号与单位名称的对应表（单位）

 
此主题相关图片如下：单位名称对应表.jpg

分二个列，第一列为单位编号，5位数，顶层为00000，其后为00100，00110，00111，依次类推，第二列为单位名称。

 

现在想把“人员信息”表中的“单位”输入设置为目录树方式，请问如何修改？

 
此主题相关图片如下：目录树输入.jpg

 

项目文件：

 

 

 

 

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

点击浏览该文件:人员管理.rar

你这个实例，数据字典还方便些。

使用数据字典不方便。单位名称总共有100个左右，有层次分布，使用目录树较为合适。

好象我这个例子目录树要用到递归函数。

你的编码不规范，用不上递归函数。

这是现有编号，不能修改。

从原理上来讲，应该是可以实现的。就是把最后的“0”去除，显示出层次。

你可以另外增加一个列，叫做“目录树编号”，这一列可以隐藏起来，以为这一列只是用于生成目录树。

然后设置Datacolchanged事件代码：

 

if e.datacol.name = "单位编号" Then

   e.Dataow("目录树编号") = e.DataRow("单位编号").Trim("0")

end if

 

这样就可以按照下面的帮助生成目录树了：

http://www.foxtable.com/help/topics/2502.htm

 

谢谢狐爸。

忙了几个小时，终于把目录树的效果搞出来了。

但还有二个问题：

1、目录树的“大队”、“小队”前面，显示了目录树编号，影响了效果。不知道如何去除。

 

此主题相关图片如下：目录树.jpg

2、双击目录树节点后，需要把相关的“单位编号”及“单位名称”填入到“ryxx”表中当前行对应的列中。

我写的代码不成功，能否可以修改：

 

内部函数：

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
For Each dr As DataRow In dt.DataRows
    Dim km As String = dr("目录树编号")
    If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + 1 Then
        Dim cd As Winform.TreeNode = nd.Nodes.Add(km,km & " " & dr("单位名称"))
        Functions.Execute("AddChildren",cd,dt)
    End If
Next

 

 

窗口调入代码：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("单位编号表")
tr.StopRedraw()
tr.Nodes.Clear
tr.Nodes.Add("上级单位")
For Each dr As DataRow In dt.datarows
    If dr.IsNull("目录树编号") = False AndAlso dr("目录树编号").Length = 1 Then
'        nd = tr.Nodes.Add(dr("目录树编号"),dr("目录树编号") & " " & dr("单位名称"))
'        nd = tr.Nodes.Add(dr("目录树编号"),dr("单位编号") & "   " & dr("单位名称"))
        nd = tr.Nodes.Add(dr("目录树编号"),  dr("单位名称"))

        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw()

 

目录树双击的代码：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.Node.Name = "上级单位" Then
    Tables("ryxx").Current("单位编号")="00000"
    Tables("ryxx").Current("单位名称")="上级单位"
   
Else
    Tables("ryxx").Current("单位名称")=e.Node.Name
    'Tables("ryxx").Current("单位编号")=             '这里需要写入单位编号的代码.
   
End If

e.Form.Close

 

项目文件如下：

 

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

点击浏览该文件:人员管理.table

access数据库文件（见一楼）