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