Foxtable(狐表)用户栏目专家坐堂 → [求助] 求助改写一段代码


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

主题:[求助] 求助改写一段代码

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


加好友 发短信
等级:一尾狐 帖子:476 积分:4602 威望:0 精华:0 注册:2013/5/22 15:32:00
[求助] 求助改写一段代码  发帖心情 Post By:2016/4/25 13:17:00 [只看该作者]

我的程序中有如下一段程序

 

Dim ltx1(),ltx2(),ltx3(),ltx4(),ltx5() As String

    ltx1 = Vars("第一列题型").Split(",")

    ltx2 = Vars("第二列题型").Split(",")

    ltx3 = Vars("第三列题型").Split(",")

    ltx4 = Vars("第四列题型").Split(",")

    ltx5 = Vars("第五列题型").Split(",")  

  

后面一段程序中多次用到 ltx5

 

如:Dim n As Integer = ltx5.length

 

Ltx5(i) =”abc”

 

 

现在我想根据条件判断,将那段程序中的 ltx5 自动替换成 ltx1,ltx2,ltx3,ltx4,或ltx5

 

如 Vars(”列数”)可能为 1,2,3,4,5 中的一个

 

那段程序中的ltx5 自动替换为 ltx1,ltx2,ltx3,ltx4,ltx5

 

应当如何写程序比较好

 

谢谢老师


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/25 14:26:00 [只看该作者]

Dim ltx1(),ltx2(),ltx3(),ltx4(),ltx5() As String
ltx1 = Vars("第一列题型").Split(",")
ltx2 = Vars("第二列题型").Split(",")
ltx3 = Vars("第三列题型").Split(",")
ltx4 = Vars("第四列题型").Split(",")
ltx5 = Vars("第五列题型").Split(",")

Dim ltxs()() As String = {ltx1, ltx2, ltx3, ltx4, ltx5}
For Each ltx As String() In ltxs
   
Next


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


加好友 发短信
等级:一尾狐 帖子:476 积分:4602 威望:0 精华:0 注册:2013/5/22 15:32:00
  发帖心情 Post By:2016/4/25 16:15:00 [只看该作者]

谢谢大红袍老师,我比原来少写了一页多程序。

[此贴子已经被作者于2016/4/25 16:15:52编辑过]

 回到顶部