Foxtable(狐表)用户栏目专家坐堂 → 急求:如何将目录树节点数字标题通过代码修改为汉字标题?


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

主题:急求:如何将目录树节点数字标题通过代码修改为汉字标题?

帅哥哟,离线,有人找我吗?
mabaor
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:70 积分:503 威望:0 精华:0 注册:2013/3/2 0:18:00
急求:如何将目录树节点数字标题通过代码修改为汉字标题?  发帖心情 Post By:2014/5/3 8:53:00 [显示全部帖子]

急求:如何将目录树节点数字标题通过代码修改为汉字标题?

示例:

图片点击可在新窗口打开查看
代码为:
Dim tv As WinForm.TreeView =e.Form.Controls("TreeView1")
tv.BuildTree("JBDWB", "GZZD|DWJF|DWMC1")
tv.Nodes.Insert("所有单位",0)
其中:字段GZZD列值为数字1表示机关;2表示事业,3表示企业;字段DWJF列值1表示全额、2表示差额等,
求:如何通过代码按节点数值标题修改为汉字标题?

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140503091016.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-5-3 9:15:07编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
mabaor
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:70 积分:503 威望:0 精华:0 注册:2013/3/2 0:18:00
  发帖心情 Post By:2014/5/3 9:08:00 [显示全部帖子]

泡泡老师的指点,记下来:

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.BuildTree("表A","第一列|第二列|第三列")

For Each nd As WinForm.TreeNode In tv.AllNodes  '遍历节点
    Select Case nd.Level            '先判断节点层级
        Case 0                      '若是根节点
            Select Case nd.Name     '再判断节点名称
                Case 1              '若节点名称为1
                    nd.Text = "①"  '则替换显示标题①
                Case 2              '若节点名称为2
                    nd.text  = "②" '则替换显示标题②
            End Select              '其他节点类似
    End Select
Next

图片点击可在新窗口打开查看

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140503090958.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-5-3 9:12:44编辑过]

 回到顶部