回3楼。这种写法是错的，怎么都不应该在节点点击事件里重新生成所有节点。如果要根据3种状态生成不同的目录树内容，应该另外发一个组合框，把这个3种状态放到组合框里选择，然后根据组合框的选择更改目录树内容
回4楼、函数改一下，把窗口传进来
DataTables("利息计算_兑付明细表").Fill("Select {收款明细表}.借款日期, {收款明细表}.债权人 ,{收款明细表}.借款年限,{收款明细表}.利率,{收款明细表}.本息是否兑付,借款金额,兑付日期,应结金额 From {收款明细表} Left JOIN {兑付明细表} ON {兑付明细表}.[收据号码] = {收款明细表}.[收据号码]" & args(0),True)
Dim cmd As new sqlcommand
Dim dt As DataTable
cmd.CommandText = "Select distinct year({收款明细表}.借款日期) as 年,month({收款明细表}.借款日期) as 月, {收款明细表}.债权人 From {收款明细表} " & args(0)
dt = cmd.ExecuteReader
Dim frm As WinForm.Form = args(1)
Dim tv As WinForm.TreeView = frm.Controls("TreeView2")
tv.BuildTree(dt,"年|月|债权人")
tv.Nodes.Insert("未全部兑付",0)
tv.Nodes.Insert("已全部兑付",0)
tv.Nodes.Insert("全部融资款",0)
For Each nd As WinForm.TreeNode In tv.nodes
nd.Expand
Next
外面调用
Functions.Execute("生成筛选树"," where 本息是否兑付 = true",e.Form)
加好友 
发短信
Post By：2020/2/13 8:36:00 [只看该作者]
