Foxtable(狐表)用户栏目专家坐堂 → 难题来了:用If 或 Case 还是其他的,能简化代码吗?


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

主题:难题来了:用If 或 Case 还是其他的,能简化代码吗?

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/4/4 0:30:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40580 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/4/4 0:34:00 [只看该作者]

命令窗口支持e参数吗?

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40580 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/4/4 0:42:00 [只看该作者]

您舍不得给文件,改为命令窗口无法调试,也就czy总版主这样的高手才行了!


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/4/4 0:43:00 [只看该作者]

以下是引用程兴刚在2009-4-4 0:34:00的发言:
命令窗口支持e参数吗?


支持特定的e参数。


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40580 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/4/4 0:45:00 [只看该作者]

哦,我以前测试过,不支持,所以,就没怎么用!

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/4/4 0:47:00 [只看该作者]

真难理解啊~  竟然会这么简化的,等我想想看,没想通的话在来讨教,谢谢两位版主这么晚了,辛苦了~

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40580 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/4/4 0:47:00 [只看该作者]

奇怪,回复半天了,突然发现,czy总版主插队给了个文件,学习一下!

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40580 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/4/4 0:57:00 [只看该作者]

通过测试,最终这个才是正确的:

Dim r As Row = CurrentTable.Current
Dim Multi As String = "A|B|C|D|E|F"
Dim Values() as String
Values = Multi.split("|")
Forms("窗口").open()
For Index As Integer = 0 To Values.Length - 1
   Forms("窗口").Controls("TextBox" & Values(Index)).Enabled = r(Values(Index))
Next
[此贴子已经被作者于2009-4-4 1:11:04编辑过]

 回到顶部
总数 18 上一页 1 2