- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 急求：如何将目录树节点数字标题通过代码修改为汉字标题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50246)
-- 发布时间：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表示差额等，
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编辑过]
-- 发布时间：2014/5/3 8:56:00
--
例子发上来，通过“添加附件”的方式上传。
-- 发布时间：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编辑过]
-- 发布时间：2014/5/3 9:26:00
--
发图片没用。