主题：关于利用目录树筛选数据问题

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