主题：利用目录树输入的简单例子

我也换了比原来要强大，即使不删除原来的代码也一样是目录树的功能
原来表属性
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

好羡慕您们，我也来学习！

学习学习

盼望已久，谢谢！