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


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

主题：难题来了：用If 或 Case 还是其他的，能简化代码吗？
帅哥哟，离线，有人找我吗？
mr725
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		难题来了：用If 或 Case 还是其他的，能简化代码吗？  发帖心情 Post By：2009/4/3 22:36:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：用if 还是 case 或其他，怎样简化这样的选择？.jpg
图片点击可在新窗口打开查看

If e.Row("A") = True andalso e.Row("B") = False andalso e.Row("C") = False andalso e.Row("D") = False andalso e.Row("E") = False andalso e.Row("F") = False Then 
       
        Forms("窗口").open()
        Forms("窗口").Controls("textboxA").Enabled = True
        Forms("窗口").Controls("textboxB").Enabled = False
        Forms("窗口").Controls("textboxC").Enabled = False
        Forms("窗口").Controls("textboxD").Enabled = False 
        Forms("窗口").Controls("textboxE").Enabled = False 
        Forms("窗口").Controls("textboxF").Enabled = False

Elseif e.Row("A") = True andalso e.Row("B") = True andalso e.Row("C") = False andalso e.Row("D") = False andalso e.Row("E") = False andalso e.Row("F") = False Then Forms("窗口").open()
        Forms("窗口").Controls("textboxA").Enabled = True
        Forms("窗口").Controls("textboxB").Enabled = True
        Forms("窗口").Controls("textboxC").Enabled = False
        Forms("窗口").Controls("textboxD").Enabled = False 
        Forms("窗口").Controls("textboxE").Enabled = False
        Forms("窗口").Controls("textboxF").Enabled = False
 Eseif e.Row("A") = True andalso e.Row("B") = True andalso e.Row("C") = True andalso e.Row("D") = False andalso e.Row("E") = False andalso e.Row("F") = False Then Forms("窗口").open()
        Forms("窗口").Controls("textboxA").Enabled = True
        Forms("窗口").Controls("textboxB").Enabled = True
        Forms("窗口").Controls("textboxC").Enabled = True
        Forms("窗口").Controls("textboxD").Enabled = False 
        Forms("窗口").Controls("textboxE").Enabled = False
        Forms("窗口").Controls("textboxF").Enabled = False
         .........

        排列组合有720个啊，谁能简化这个代码吗？？？？？？？
        ..........
        .........
 
End If

应2、3楼要求补上执行代码！～





[此贴子已经被作者于2009-4-3 23:53:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2009/4/3 23:43:00 [显示全部帖子]

......执行1
Forms("窗口").open()
Forms("窗口").Controls("textboxA").Enabled = True
Forms("窗口").Controls("textboxB").Enabled = False
Forms("窗口").Controls("textboxC").Enabled = False
Forms("窗口").Controls("textboxD").Enabled = False 
Forms("窗口").Controls("textboxE").Enabled = False 
Forms("窗口").Controls("textboxF").Enabled = False
 

......执行2：
Forms("窗口").open()
Forms("窗口").Controls("textboxA").Enabled = True
Forms("窗口").Controls("textboxB").Enabled = True
Forms("窗口").Controls("textboxC").Enabled = False
Forms("窗口").Controls("textboxD").Enabled = False 
Forms("窗口").Controls("textboxE").Enabled = False
Forms("窗口").Controls("textboxF").Enabled = False
 

...............

这样能下手吗？？？？？
[此贴子已经被作者于2009-4-3 23:47:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2009/4/4 0:08:00 [显示全部帖子]

代码放在按钮中即可～  谢谢了 。

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我只是对象这样有规则的代码不会简化，版主可以做个放在‘命令窗口’中能执行即可，多谢啊～


 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05566 秒, 5 次数据查询