主题：关联表某字段生成动态目录树问题

If e.Col.Name = "姓名" AndAlso e.Table.Name = "学年.考试.明细" Then
    Dim tb1 As New DropTreeBuilder
    tb1.SourceTable = DataTables("得piao") '指定目录树表
    tb1.TreeCols = "任务组编号|姓名" '指定用于生成目录树的列
    Dim dr As Row = Tables("测评").Current
    tb1.TreeFilter="[任务组编号]='" &  dr("任务组编号")  & "' and [对象]=1"
    tb1.SourceCols = "姓名|职务" '指定数据来源列
    tb1.ReceiveCols = "姓名|职务" '指定数据接收列
    Tables("测评").Cols("姓名").DropTree = tb1.Build()
End If