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