Foxtable(狐表) → 用户栏目 → 专家坐堂 → treeview控件中信息编号问题


  共有2708人关注过本帖树形打印复制链接

主题：treeview控件中信息编号问题
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7592 威望：0 精华：0 注册：2010/4/12 12:23:00 		treeview控件中信息编号问题  发帖心情 Post By：2021/2/3 15:48:00 [只看该作者]

如截图，通过对treeview控件(两级节点)中的信息进行编辑处理得到截图中的信息。需要对信息进行编号。想实现：
1.根节点由前向后为01，02，03，04，....
2.第二层节点由前向后为01，02，03，04，....
3.合成编号：0101（图中的：信息管理\基本信息），或0102（图中的：信息管理\诊断信息）

谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：360截图17690617503468.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/3 15:56:00 [只看该作者]

编辑节点名称的时候直接填入不就行了，比如：信息管理(01)

 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7592 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2021/2/3 18:27:00 [只看该作者]

如果变化的内容（如先后顺序等）很多，逐个重新手工编号，就会很繁琐，也容易出错。也不能体现计算机的能力。
如果是两级，循环两次即可，如何获得所有一级节点的标题。
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7592 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2021/2/3 23:36:00 [只看该作者]

部分代码：
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim td As WinForm.TreeNode
Dim n,n1 As Integer
Dim t1,t2 As String
Dim dr As DataRow
n=0
For Each node As WinForm.TreeNode In tr.Nodes
    n=n+1
    t1 = node.Text
    n1=0
    For Each node1 As WinForm.TreeNode In node.Nodes
        n1=n1+1
        t2 = node1.Text
        dr = DataTables("主表").Find("[分组]='" & t1 & "'" & "and [名称]='" & t2 & "'")
        If dr IsNot Nothing Then
            dr("序号")=Format（n,"00"）& Format(n1,"00")
        End If
    Next
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/4 8:55:00 [只看该作者]

使用递归处理，比如：http://www.foxtable.com/webhelp/topics/2416.htm

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询