Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这样的代码能否精简


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

主题：这样的代码能否精简
帅哥哟，离线，有人找我吗？
老有所乐
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00 		这样的代码能否精简  发帖心情 Post By：2012/3/28 19:57:00 [显示全部帖子]

下面的代码能否精简,因为还有好多需要写上,哪么这段代码就好长,请高手帮忙,谢谢!

Dim i1 As String = e.Form.Controls("label6").text    '定义一个组合框,以供在窗口显示表用 
If i1= "现金表" Then
    e.Form.Controls("工资卡").Visible =False '

    e.Form.Controls("银行存款").Visible =False '

    e.Form.Controls("债权").Visible =False '

 Else If i1 = "工资卡" Then
    e.Form.Controls("银行存款").Visible =False '

    e.Form.Controls("债权").Visible =False '

    e.Form.Controls("现金表").Visible =False '

Else If i1= "银行存款" Then
     e.Form.Controls("工资卡").Visible =False '

     e.Form.Controls("债权").Visible =False '

     e.Form.Controls("现金表").Visible =False '

Else If i1= "债权" Then
    e.Form.Controls("工资卡").Visible =False '

    e.Form.Controls("银行存款").Visible =False '

    e.Form.Controls("现金表").Visible =False '

End  If
 回到顶部
帅哥哟，离线，有人找我吗？
老有所乐
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00 		  发帖心情 Post By：2012/3/28 22:00:00 [显示全部帖子]

谢谢mr725 和lxl版主 老师的指教!

3搂的效果最好,2搂的提示找不到"& s &" 控件, 4搂不能隐藏非选中的标签
 回到顶部
帅哥哟，离线，有人找我吗？
老有所乐
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00 		  发帖心情 Post By：2012/3/28 22:20:00 [显示全部帖子]

是的,我是改为s后方可用
 回到顶部
帅哥哟，离线，有人找我吗？
老有所乐
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00 		  发帖心情 Post By：2012/3/29 10:00:00 [显示全部帖子]

越来越精简，谢谢！

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