- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]目录树节点如何动态命名？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119517)
-- 发布时间：2018/5/26 9:38:00
-- [求助]目录树节点如何动态命名？
此主题相关图片如下：1.png
有如上任务栏，其中“合同管理”页面是一个“目录树”控件，现在计划将此目录树中的“在期合同”节点，动态加上“（25）”这个效果，自己琢磨了好久，一直无法解决。麻烦老师指点一下，谢谢！
25数据根据：Dim cnt23 As Integer = DataTables("主合同").SQLCompute("Count(合同编号)","已审核 = 1 And (已终止 = 0 Or 已终止 Is null)") 统计动态变化的。
-- 发布时间：2018/5/26 9:41:00
--
参考：
-- 发布时间：2018/5/26 10:15:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
圆满解决，谢谢！
Case "合同管理"
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.Nodes(0)
Dim nd1 As WinForm.TreeNode
Dim nd2 As WinForm.TreeNode
nd1 = nd.Nodes(0)
nd2 = nd.Nodes(1)
Dim cnt36 As Integer = DataTables("主合同").SQLCompute("Count(合同编号)")
Dim cnt37 As Integer = DataTables("主合同").SQLCompute("Count(合同编号)","已审核 = 1 And (已终止 = 0 Or 已终止 Is null)")
nd1.Text = "合同台账(" & cnt36 & ")"
nd2.Text = "在期合同(" & cnt37 & ")"