主题：[求助]动态列表问题

DataColChanged事件

If e.DataCol.Name = "车架号" Then
    If e.NewValue IsNot Nothing Then
        Dim st As DataRow = DataTables("表B").Find("车架号 ='"& e.NewValue &"' ")
        st("已选") = True
        Dim tb As New DropTreeBuilder
        tb.SourceTable = DataTables("表B") '指定目录树表
        tb.TreeCols = "车型|车架号" '指定用于生成目录树的列
        tb.SourceCols = "车架号" '指定数据来源列
        tb.ReceiveCols = "车架号" '指定数据接收列
        tb.TreeFilter =  "已选 = false"
        Tables("表A").Cols("车架号").DropTree = tb.Build()
    End If
End If