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

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

 

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

 

'根据任务组编号自动生成姓名下拉目录树
If e.IsFocusCell AndAlso e.Col.Name = "姓名" Then
    Dim tb1 As New DropTreeBuilder
    tb1.SourceTable = DataTables("得piao") '指定目录树表  
    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("得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