[求助]目录树节点如何动态命名？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]目录树节点如何动态命名？

共有2332人关注过本帖树形打印复制链接主题：[求助]目录树节点如何动态命名？

洮沙

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：7217 威望：0 精华：0 注册：2017/8/31 12:07:00

[求助]目录树节点如何动态命名？ 发帖心情

Post By：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:45编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111419 积分：567171 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/5/26 9:41:00 [只看该作者]

参考：

http://www.foxtable.com/webhelp/scr/2741.htm

http://www.foxtable.com/webhelp/scr/2742.htm

洮沙

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：7217 威望：0 精华：0 注册：2017/8/31 12:07:00

回复：（有点蓝）参考：http://www.foxtable.com/webh... 发帖心情

Post By：2018/5/26 10:15:00 [只看该作者]

圆满解决，谢谢！

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 & ")"

下一主题 >> << 上一主题

主题：[求助]目录树节点如何动态命名？