Foxtable(狐表) → 用户栏目 → 专家坐堂 → 变量中的数字怎么用变量代替？


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

主题：变量中的数字怎么用变量代替？
帅哥哟，离线，有人找我吗？
kljbdjz
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：462 威望：0 精华：0 注册：2018/6/3 16:05:00 		  发帖心情 Post By：2018/11/27 16:37:00 [只看该作者]

主要就是想通过循环的方法把下面的代码简化，否则每次增加一个目录，每个里面都要添加一次，太麻烦了。


Dim mlq2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim np2 As WinForm.TreeNode
Dim ndd2 As WinForm.TreeNode
np2 = mlq2.Nodes.Add("信息类","信息类")
np2.Nodes.Add("询盘表")
np2.Nodes.Add("留档表")
np2.Nodes.Add("上门表")
np2.Nodes.Add("交定表")
np2.Nodes.Add("施工表")
np2 = mlq2.Nodes.Add("消费类","消费类")
np2.Nodes.Add("株洲消费表")
np2.Nodes.Add("湘潭消费表")
np2.Nodes.Add("衡阳消费表")
np2.Nodes.Add("长沙消费表")
np2.Nodes.Add("各地区消费总表")
np2 = mlq2.Nodes.Add("数据类","数据类")
ndd2 = np2.Nodes.Add("周","周")
ndd2.Nodes.Add("周数据","周数据")
ndd2.Nodes.Add("客服数据.周","客服数据")
ndd2.Nodes.Add("家装顾问.周","家装顾问")
ndd2.Nodes.Add("百度竞价.周","百度竞价")
ndd2.Nodes.Add("百度信息流.周","百度信息流")
ndd2.Nodes.Add("360竞价.周","360竞价")
ndd2.Nodes.Add("搜狗竞价.周","搜狗竞价")
ndd2.Nodes.Add("神马竞价.周","神马竞价")
ndd2.Nodes.Add("抖音.周","抖音")
ndd2.Nodes.Add("朋友圈.周","朋友圈")
ndd2.Nodes.Add("小视频.周","小视频")
ndd2.Nodes.Add("360信息流.周","360信息流")
ndd2.Nodes.Add("广点通.周","广点通")
ndd2 = np2.Nodes.Add("月","月")
ndd2.Nodes.Add("月数据","月数据")
ndd2.Nodes.Add("客服数据.月","客服数据")
ndd2.Nodes.Add("家装顾问.月","家装顾问")
ndd2.Nodes.Add("百度竞价.月","百度竞价")
ndd2.Nodes.Add("百度信息流.月","百度信息流")
ndd2.Nodes.Add("360竞价.月","360竞价")
ndd2.Nodes.Add("搜狗竞价.月","搜狗竞价")
ndd2.Nodes.Add("神马竞价.月","神马竞价")
ndd2.Nodes.Add("抖音.月","抖音")
ndd2.Nodes.Add("朋友圈.月","朋友圈")
ndd2.Nodes.Add("小视频.月","小视频")
ndd2.Nodes.Add("360信息流.月","360信息流")
ndd2.Nodes.Add("广点通.月","广点通")
ndd2 = np2.Nodes.Add("年","年")
ndd2.Nodes.Add("年数据","年数据")
ndd2.Nodes.Add("客服数据.年","客服数据")
ndd2.Nodes.Add("家装顾问.年","家装顾问")
ndd2.Nodes.Add("百度竞价.年","百度竞价")
ndd2.Nodes.Add("百度信息流.年","百度信息流")
ndd2.Nodes.Add("360竞价.年","360竞价")
ndd2.Nodes.Add("搜狗竞价.年","搜狗竞价")
ndd2.Nodes.Add("神马竞价.年","神马竞价")
ndd2.Nodes.Add("抖音.年","抖音")
ndd2.Nodes.Add("朋友圈.年","朋友圈")
ndd2.Nodes.Add("小视频.年","小视频")
ndd2.Nodes.Add("360信息流.年","360信息流")
ndd2.Nodes.Add("广点通.年","广点通")

mlq2.Nodes(0).Expand() '默认展开目录树
mlq2.Nodes(1).Expand()
mlq2.Nodes(2).Expand()

Dim mlq3 As WinForm.TreeView = e.Form.Controls("TreeView3")
Dim np3 As WinForm.TreeNode
Dim ndd3 As WinForm.TreeNode
np3 = mlq3.Nodes.Add("信息类","信息类")
np3.Nodes.Add("询盘表")
np3.Nodes.Add("留档表")
np3.Nodes.Add("上门表")
np3.Nodes.Add("交定表")
np3.Nodes.Add("施工表")
np3 = mlq3.Nodes.Add("消费类","消费类")
np3.Nodes.Add("株洲消费表")
np3.Nodes.Add("湘潭消费表")
np3.Nodes.Add("衡阳消费表")
np3.Nodes.Add("长沙消费表")
np3.Nodes.Add("各地区消费总表")
np3 = mlq3.Nodes.Add("数据类","数据类")
ndd3 = np3.Nodes.Add("周","周")
ndd3.Nodes.Add("周数据","周数据")
ndd3.Nodes.Add("客服数据.周","客服数据")
ndd3.Nodes.Add("家装顾问.周","家装顾问")
ndd3.Nodes.Add("百度竞价.周","百度竞价")
ndd3.Nodes.Add("百度信息流.周","百度信息流")
ndd3.Nodes.Add("360竞价.周","360竞价")
ndd3.Nodes.Add("搜狗竞价.周","搜狗竞价")
ndd3.Nodes.Add("神马竞价.周","神马竞价")
ndd3.Nodes.Add("抖音.周","抖音")
ndd3.Nodes.Add("朋友圈.周","朋友圈")
ndd3.Nodes.Add("小视频.周","小视频")
ndd3.Nodes.Add("360信息流.周","360信息流")
ndd3.Nodes.Add("广点通.周","广点通")
ndd3 = np3.Nodes.Add("月","月")
ndd3.Nodes.Add("月数据","月数据")
ndd3.Nodes.Add("客服数据.月","客服数据")
ndd3.Nodes.Add("家装顾问.月","家装顾问")
ndd3.Nodes.Add("百度竞价.月","百度竞价")
ndd3.Nodes.Add("百度信息流.月","百度信息流")
ndd3.Nodes.Add("360竞价.月","360竞价")
ndd3.Nodes.Add("搜狗竞价.月","搜狗竞价")
ndd3.Nodes.Add("神马竞价.月","神马竞价")
ndd3.Nodes.Add("抖音.月","抖音")
ndd3.Nodes.Add("朋友圈.月","朋友圈")
ndd3.Nodes.Add("小视频.月","小视频")
ndd3.Nodes.Add("360信息流.月","360信息流")
ndd3.Nodes.Add("广点通.月","广点通")
ndd3 = np3.Nodes.Add("年","年")
ndd3.Nodes.Add("年数据","年数据")
ndd3.Nodes.Add("客服数据.年","客服数据")
ndd3.Nodes.Add("家装顾问.年","家装顾问")
ndd3.Nodes.Add("百度竞价.年","百度竞价")
ndd3.Nodes.Add("百度信息流.年","百度信息流")
ndd3.Nodes.Add("360竞价.年","360竞价")
ndd3.Nodes.Add("搜狗竞价.年","搜狗竞价")
ndd3.Nodes.Add("神马竞价.年","神马竞价")
ndd3.Nodes.Add("抖音.年","抖音")
ndd3.Nodes.Add("朋友圈.年","朋友圈")
ndd3.Nodes.Add("小视频.年","小视频")
ndd3.Nodes.Add("360信息流.年","360信息流")
ndd3.Nodes.Add("广点通.年","广点通")

mlq3.Nodes(0).Expand() '默认展开目录树
mlq3.Nodes(1).Expand()
mlq3.Nodes(2).Expand()


Dim mlq4 As WinForm.TreeView = e.Form.Controls("TreeView4")
Dim np4 As WinForm.TreeNode
Dim ndd4 As WinForm.TreeNode
np4 = mlq4.Nodes.Add("信息类","信息类")
np4.Nodes.Add("询盘表")
np4.Nodes.Add("留档表")
np4.Nodes.Add("上门表")
np4.Nodes.Add("交定表")
np4.Nodes.Add("施工表")
np4 = mlq4.Nodes.Add("消费类","消费类")
np4.Nodes.Add("株洲消费表")
np4.Nodes.Add("湘潭消费表")
np4.Nodes.Add("衡阳消费表")
np4.Nodes.Add("长沙消费表")
np4.Nodes.Add("各地区消费总表")
np4 = mlq4.Nodes.Add("数据类","数据类")
ndd4 = np4.Nodes.Add("周","周")
ndd4.Nodes.Add("周数据","周数据")
ndd4.Nodes.Add("客服数据.周","客服数据")
ndd4.Nodes.Add("家装顾问.周","家装顾问")
ndd4.Nodes.Add("百度竞价.周","百度竞价")
ndd4.Nodes.Add("百度信息流.周","百度信息流")
ndd4.Nodes.Add("360竞价.周","360竞价")
ndd4.Nodes.Add("搜狗竞价.周","搜狗竞价")
ndd4.Nodes.Add("神马竞价.周","神马竞价")
ndd4.Nodes.Add("抖音.周","抖音")
ndd4.Nodes.Add("朋友圈.周","朋友圈")
ndd4.Nodes.Add("小视频.周","小视频")
ndd4.Nodes.Add("360信息流.周","360信息流")
ndd4.Nodes.Add("广点通.周","广点通")
ndd4 = np4.Nodes.Add("月","月")
ndd4.Nodes.Add("月数据","月数据")
ndd4.Nodes.Add("客服数据.月","客服数据")
ndd4.Nodes.Add("家装顾问.月","家装顾问")
ndd4.Nodes.Add("百度竞价.月","百度竞价")
ndd4.Nodes.Add("百度信息流.月","百度信息流")
ndd4.Nodes.Add("360竞价.月","360竞价")
ndd4.Nodes.Add("搜狗竞价.月","搜狗竞价")
ndd4.Nodes.Add("神马竞价.月","神马竞价")
ndd4.Nodes.Add("抖音.月","抖音")
ndd4.Nodes.Add("朋友圈.月","朋友圈")
ndd4.Nodes.Add("小视频.月","小视频")
ndd4.Nodes.Add("360信息流.月","360信息流")
ndd4.Nodes.Add("广点通.月","广点通")
ndd4 = np4.Nodes.Add("年","年")
ndd4.Nodes.Add("年数据","年数据")
ndd4.Nodes.Add("客服数据.年","客服数据")
ndd4.Nodes.Add("家装顾问.年","家装顾问")
ndd4.Nodes.Add("百度竞价.年","百度竞价")
ndd4.Nodes.Add("百度信息流.年","百度信息流")
ndd4.Nodes.Add("360竞价.年","360竞价")
ndd4.Nodes.Add("搜狗竞价.年","搜狗竞价")
ndd4.Nodes.Add("神马竞价.年","神马竞价")
ndd4.Nodes.Add("抖音.年","抖音")
ndd4.Nodes.Add("朋友圈.年","朋友圈")
ndd4.Nodes.Add("小视频.年","小视频")
ndd4.Nodes.Add("360信息流.年","360信息流")
ndd4.Nodes.Add("广点通.年","广点通")

mlq4.Nodes(0).Expand() '默认展开目录树
mlq4.Nodes(1).Expand()
mlq4.Nodes(2).Expand()


Dim mlq5 As WinForm.TreeView = e.Form.Controls("TreeView5")
Dim np5 As WinForm.TreeNode
Dim ndd5 As WinForm.TreeNode
np5 = mlq5.Nodes.Add("信息类","信息类")
np5.Nodes.Add("询盘表")
np5.Nodes.Add("留档表")
np5.Nodes.Add("上门表")
np5.Nodes.Add("交定表")
np5.Nodes.Add("施工表")
np5 = mlq5.Nodes.Add("消费类","消费类")
np5.Nodes.Add("株洲消费表")
np5.Nodes.Add("湘潭消费表")
np5.Nodes.Add("衡阳消费表")
np5.Nodes.Add("长沙消费表")
np5.Nodes.Add("各地区消费总表")
np5 = mlq5.Nodes.Add("数据类","数据类")
ndd5 = np5.Nodes.Add("周","周")
ndd5.Nodes.Add("周数据","周数据")
ndd5.Nodes.Add("客服数据.周","客服数据")
ndd5.Nodes.Add("家装顾问.周","家装顾问")
ndd5.Nodes.Add("百度竞价.周","百度竞价")
ndd5.Nodes.Add("百度信息流.周","百度信息流")
ndd5.Nodes.Add("360竞价.周","360竞价")
ndd5.Nodes.Add("搜狗竞价.周","搜狗竞价")
ndd5.Nodes.Add("神马竞价.周","神马竞价")
ndd5.Nodes.Add("抖音.周","抖音")
ndd5.Nodes.Add("朋友圈.周","朋友圈")
ndd5.Nodes.Add("小视频.周","小视频")
ndd5.Nodes.Add("360信息流.周","360信息流")
ndd5.Nodes.Add("广点通.周","广点通")
ndd5 = np5.Nodes.Add("月","月")
ndd5.Nodes.Add("月数据","月数据")
ndd5.Nodes.Add("客服数据.月","客服数据")
ndd5.Nodes.Add("家装顾问.月","家装顾问")
ndd5.Nodes.Add("百度竞价.月","百度竞价")
ndd5.Nodes.Add("百度信息流.月","百度信息流")
ndd5.Nodes.Add("360竞价.月","360竞价")
ndd5.Nodes.Add("搜狗竞价.月","搜狗竞价")
ndd5.Nodes.Add("神马竞价.月","神马竞价")
ndd5.Nodes.Add("抖音.月","抖音")
ndd5.Nodes.Add("朋友圈.月","朋友圈")
ndd5.Nodes.Add("小视频.月","小视频")
ndd5.Nodes.Add("360信息流.月","360信息流")
ndd5.Nodes.Add("广点通.月","广点通")
ndd5 = np5.Nodes.Add("年","年")
ndd5.Nodes.Add("年数据","年数据")
ndd5.Nodes.Add("客服数据.年","客服数据")
ndd5.Nodes.Add("家装顾问.年","家装顾问")
ndd5.Nodes.Add("百度竞价.年","百度竞价")
ndd5.Nodes.Add("百度信息流.年","百度信息流")
ndd5.Nodes.Add("360竞价.年","360竞价")
ndd5.Nodes.Add("搜狗竞价.年","搜狗竞价")
ndd5.Nodes.Add("神马竞价.年","神马竞价")
ndd5.Nodes.Add("抖音.年","抖音")
ndd5.Nodes.Add("朋友圈.年","朋友圈")
ndd5.Nodes.Add("小视频.年","小视频")
ndd5.Nodes.Add("360信息流.年","360信息流")
ndd5.Nodes.Add("广点通.年","广点通")

mlq5.Nodes(0).Expand() '默认展开目录树
mlq5.Nodes(1).Expand()
mlq5.Nodes(2).Expand()


Dim mlq6 As WinForm.TreeView = e.Form.Controls("TreeView6")
Dim np6 As WinForm.TreeNode
Dim ndd6 As WinForm.TreeNode
np6 = mlq6.Nodes.Add("信息类","信息类")
np6.Nodes.Add("询盘表")
np6.Nodes.Add("留档表")
np6.Nodes.Add("上门表")
np6.Nodes.Add("交定表")
np6.Nodes.Add("施工表")
np6 = mlq6.Nodes.Add("消费类","消费类")
np6.Nodes.Add("株洲消费表")
np6.Nodes.Add("湘潭消费表")
np6.Nodes.Add("衡阳消费表")
np6.Nodes.Add("长沙消费表")
np6.Nodes.Add("各地区消费总表")
np6 = mlq6.Nodes.Add("数据类","数据类")
ndd6 = np6.Nodes.Add("周","周")
ndd6.Nodes.Add("周数据","周数据")
ndd6.Nodes.Add("客服数据.周","客服数据")
ndd6.Nodes.Add("家装顾问.周","家装顾问")
ndd6.Nodes.Add("百度竞价.周","百度竞价")
ndd6.Nodes.Add("百度信息流.周","百度信息流")
ndd6.Nodes.Add("360竞价.周","360竞价")
ndd6.Nodes.Add("搜狗竞价.周","搜狗竞价")
ndd6.Nodes.Add("神马竞价.周","神马竞价")
ndd6.Nodes.Add("抖音.周","抖音")
ndd6.Nodes.Add("朋友圈.周","朋友圈")
ndd6.Nodes.Add("小视频.周","小视频")
ndd6.Nodes.Add("360信息流.周","360信息流")
ndd6.Nodes.Add("广点通.周","广点通")
ndd6 = np6.Nodes.Add("月","月")
ndd6.Nodes.Add("月数据","月数据")
ndd6.Nodes.Add("客服数据.月","客服数据")
ndd6.Nodes.Add("家装顾问.月","家装顾问")
ndd6.Nodes.Add("百度竞价.月","百度竞价")
ndd6.Nodes.Add("百度信息流.月","百度信息流")
ndd6.Nodes.Add("360竞价.月","360竞价")
ndd6.Nodes.Add("搜狗竞价.月","搜狗竞价")
ndd6.Nodes.Add("神马竞价.月","神马竞价")
ndd6.Nodes.Add("抖音.月","抖音")
ndd6.Nodes.Add("朋友圈.月","朋友圈")
ndd6.Nodes.Add("小视频.月","小视频")
ndd6.Nodes.Add("360信息流.月","360信息流")
ndd6.Nodes.Add("广点通.月","广点通")
ndd6 = np6.Nodes.Add("年","年")
ndd6.Nodes.Add("年数据","年数据")
ndd6.Nodes.Add("客服数据.年","客服数据")
ndd6.Nodes.Add("家装顾问.年","家装顾问")
ndd6.Nodes.Add("百度竞价.年","百度竞价")
ndd6.Nodes.Add("百度信息流.年","百度信息流")
ndd6.Nodes.Add("360竞价.年","360竞价")
ndd6.Nodes.Add("搜狗竞价.年","搜狗竞价")
ndd6.Nodes.Add("神马竞价.年","神马竞价")
ndd6.Nodes.Add("抖音.年","抖音")
ndd6.Nodes.Add("朋友圈.年","朋友圈")
ndd6.Nodes.Add("小视频.年","小视频")
ndd6.Nodes.Add("360信息流.年","360信息流")
ndd6.Nodes.Add("广点通.年","广点通")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/27 17:31:00 [只看该作者]

1、为什么不通过目录树文件或者目录树表，生成？

 

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

 

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

 

2、如果要简化代码，变量名可以用同一个，如

 

Dim mlq2 As WinForm.TreeView = e.Form.Controls("TreeView2")
 
mlq2 = e.Form.Controls("TreeView3")
 
mlq2 = e.Form.Controls("TreeView4")

 

mlq2 = e.Form.Controls("TreeView5")
 回到顶部
总数 12 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询