表事件PrepareEdit中，以下代码是没问题的。

但是我想把这个动态目录树指定到关联子表，如 “学年.考试.明细”下，如何修改？

\'根据任务组编号自动生成姓名下拉目录树
If e.IsFocusCell AndAlso e.Col.Name = "姓名" Then
    Dim tb1 As New DropTreeBuilder
    tb1.SourceTable = DataTables("得票") \'指定目录树表  
    tb1.TreeCols = "任务组编号|姓名" \'指定用于生成目录树的列
    Dim dr As Row = Tables("测评").Current ..................................................这里应该是关联子表 Tables("学年.考试.明细。测评")
    tb1.TreeFilter="[任务组编号]=\'" &  dr("任务组编号")  & "\' and [对象]=1"
    tb1.SourceCols = "姓名|职务" \'指定数据来源列
    tb1.ReceiveCols = "姓名|职务" \'指定数据接收列
    Tables("测评").Cols("姓名").DropTree = tb1.Build()  ............................................这里应该指定到Tables("学年.考试.明细。测评")的“姓名”中创建
End If

请教！

————————

另外，能否加上字段判读，放到DataColChanged事件中？

If e.IsFocusCell AndAlso e.Col.Name = "xmbh" Then

    \'生成代码

End If

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