Dim erow As Row = Tables("室内设计项目").Current
If erow Is Nothing Then Return
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("工程状态") & "'")
If fdr1 IsNot Nothing Then
Filter = "省市='" & eRow("设计任务要求_设计类别") & "' and _Identify > " & fdr1("_Identify")
Else
Filter = "省市='" & eRow("设计任务要求_设计类别") & "'"
End If
Else
Filter = "省市='" & eRow("设计任务要求_设计类别") & "'"
End If
Else
Filter = "省市='其他'"
End If
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("下拉目录树","省市|县市", filter)
加好友 
发短信
Post By：2019/9/11 13:40:00 [只看该作者]
