把afterload代码去掉
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
fdr = DataTables("下拉目录树").find("省市='" & eRow("设计任务要求_设计类别") & "' and 县市='" & eRow("工程状态") & "'")
If fdr IsNot Nothing Then
Filter = "省市='" & eRow("设计任务要求_设计类别") & "' and _Identify > " & fdr("_Identify")
Else
Filter = "省市='" & eRow("设计任务要求_设计类别") & "'"
End If
Else
Filter = "省市='其他'"
End If
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("下拉目录树","省市|县市", filter,"_Identify")
trv.ExpandAll()