主题：新增行默认筛选树列，如何做？

For Each a As OBJECT In Tables("清单").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "筛选树" Then
            Dim tr = b.controls(0).controls(0)
            If tr.selectednode IsNot Nothing AndAlso tr.selectednode.text <> "显示所有行" Then
                Dim ary1() As String = "项目名称|单位工程|清单名称".split("|")
                Dim ary2() As String = tr.selectednode.fullpath.split("\")
                For i As Integer = 0 To ary2.length-1
                    If e.DataTable.DataCols(ary1(i)).Expression = "" Then
                        e.DataRow(ary1(i)) = ary2(i)
                    End If
                Next
                Dim fdr As DataRow = DataTables("工程项目").find("项目名称='" & ary2(0) & "'")
                If fdr IsNot Nothing
                    e.DataRow("项目id") = fdr("项目id")
                End If
            End If
        End If
    Next
Next