我也换了比原来要强大，即使不删除原来的代码也一样是目录树的功能
原来表属性
PREPAREDIT:
If e.Col.Name = "村名" Then '如果正在编辑的是村名
If e.Row.IsNull("乡名") Then '如果乡名列的内容为空
e.Col.Combolist = "" '清除乡名列的列表项目
Else '否则
Dim drs As New List(Of DataRow)
Dim Val AS String = "|"
'从单位区域获得该乡名的全部行
drs = DataTables("单位").Select("[乡名] = '" & e.Row("乡名") & "'")
For Each dr As DataRow In drs
Val = Val & "|" & dr("村名")
Next
e.Col.Combolist = Val
End If
End If
AFTERLOADTABLESETTING:
Dim Lst As New List(Of String)
Dim Val As String
Lst = DataTables("单位").GetUniqueValues("","乡名")
For i As Integer = 0 To Lst.Count -1
Val = Val & "|" & Lst(i)
Next
Tables("总览").Cols("乡名").Combolist = Val