Dim dr As DataRow = e.Node.DataRow
Dim str As String = DataTables("支出分类").GetComboListString("支出目录","支出分类代码='" & dr("支出分类代码") & "' Or 支出分类代码 Like '" & dr("支出分类代码") & "%'")
Tables("支出流水").Filter = "收入分类 in ('" & str.Replace("|","','") & "')"
'Tables("支出流水").Filter = IIF(Tables("支出流水").Filter > "", Tables("支出流水").Filter & " and ","") & " 收入分类 in ('" & str.Replace("|","','") & "')"
'Tables("支出流水").filter = IIF(Tables("支出流水").filter > "", Tables("支出流水").filter & " and " & "收入分类 in ('" & str.Replace("|","','") & "')","收入分类 in ('" & str.Replace("|","','") & "')")
Dim btn As WinForm.Button = Forms("查询窗口").Controls("Button1")
btn.PerformClick()
e.Form.DropDownBox.Value = e.node.Text
e.Form.DropDownBox.CloseDropdown