主题：[求助]两表两列取值目录树

prepareEdit事件

static flag As Boolean = False

If e.Col.name = "地区" Then
    If e.IsFocusCell And flag = False Then
        Dim tb As New DropTreeBuilder
        tb.SourceTable = DataTables("表B") '指定目录树表
        tb.TreeCols = "地区" '指定用于生成目录树的列
        tb.ReceiveCols = "地区" '指定数据接收列
       
        Dim fdr As DataRow = DataTables("表B").find("国家='" & e.Row("国家") & "'")
        If fdr IsNot Nothing Then
            Dim dq As Integer = e.Table.DataTable.Compute("max(地区)", "国家='" & e.Row("国家") & "' and _Identify <> " & e.Row("_Identify"))
            tb.TreeFilter = "国家='" & e.Row("国家") & "' and 地区 > " & dq
        Else
            Dim dq As Integer = e.Table.DataTable.Compute("max(地区)", "国家='其他' and _Identify <> " & e.Row("_Identify"))
            tb.TreeFilter = "国家='其他' and 地区 > " & dq
        End If
        e.Col.DropTree = tb.Build()
        flag = True
    End If
Else
    flag = False
End If

1、

static flag As Boolean = False
If e.Col.name = "地区" Then
    If e.IsFocusCell And flag = False Then
        Dim tb As New DropTreeBuilder
        tb.SourceTable = DataTables("表B") '指定目录树表
        tb.TreeCols = "地区" '指定用于生成目录树的列
        tb.ReceiveCols = "地区" '指定数据接收列
       
        Dim fdr As DataRow = DataTables("表B").find("国家='" & e.Row("国家") & "'")
        If fdr IsNot Nothing Then
            Dim dq As Integer = e.Table.DataTable.Compute("max(地区)", "国家='" & e.Row("国家") & "' and _Identify <> " & e.Row("_Identify"))
            tb.TreeFilter = "国家='" & e.Row("国家") & "' and 地区 > " & dq
        Else
            Dim dq As Integer = e.Table.DataTable.Compute("max(地区)", "国家='其他' and _Identify <> " & e.Row("_Identify"))
            tb.TreeFilter = "国家='其他' and 地区 > " & dq
        End If
        e.Col.DropTree = tb.Build()
        flag = True
    Else
        flag = False
    End If
Else
    flag = False
End If

2、窗口的下拉目录树，参考

http://www.foxtable.com/webhelp/scr/2350.htm

dropDownOpening 事件

Dim erow As Row = Tables("室内设计项目").Current
Dim filter As String = ""
Dim fdr As DataRow = DataTables("下拉目录树").find("省市='" & eRow("设计任务要求_设计类别") & "'")
If fdr IsNot Nothing Then
    Dim dq As DataRow = erow.Table.DataTable.find("设计任务要求_设计类别='" & eRow("设计任务要求_设计类别") & "' and _Identify <> " & eRow("_Identify"), "_Identify desc")
    If dq IsNot Nothing Then
        Dim fdr1 As DataRow = DataTables("下拉目录树").find("省市='" & eRow("设计任务要求_设计类别") & "' and 县市 = '" & dq("工程状态") & "'")
        Filter = "省市='" & eRow("设计任务要求_设计类别") & "' and _Identify > " & fdr1("_Identify")
    Else
        Filter = "省市='" & eRow("设计任务要求_设计类别") & "'"
    End If
Else
    Filter = "省市='其他'"
End If
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("下拉目录树","省市|县市", filter)