Foxtable(狐表) → 用户栏目 → 专家坐堂 → RelationTable控件哪去了


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

主题：RelationTable控件哪去了
帅哥哟，离线，有人找我吗？
czy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/3/21 16:46:00 [显示全部帖子]

Table就是。

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/3/21 19:45:00 [显示全部帖子]

以下是引用lkqing在2009-3-21 17:23:00的发言：
控件名称变化了，原先的设置就麻烦了， 呜呜......


原先设置过的不用去管它，一样的。
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/3/21 20:15:00 [显示全部帖子]

Table控件名称也是RelationTable，我刚才打开了论坛上有插入关联表的文件，测试没有任何问题。
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/3/22 9:35:00 [显示全部帖子]

应该算恐怖吧，下面这样看起来就好多了。

e.Form.Controls("RelationTable1").Visible = True
Dim s1 As String =e.Form.Controls("TextBox1").Value
Dim s2 As String s2 = s1.SubString(0,4)
If s2 = "6001" Then
    e.Form.Controls("RelationTable2").Visible = True
    e.Form.Controls("RelationTable14").Visible = True
    e.Form.Controls("RelationTable20").Visible = True
    e.Form.Controls("RelationTable23").Visible = True
    e.Form.Controls("RelationTable26").Visible = True
ElseIf s2 = "6002" Then
    e.Form.Controls("RelationTable3").Visible = True
    e.Form.Controls("RelationTable15").Visible = True
    e.Form.Controls("RelationTable22").Visible = True
    e.Form.Controls("RelationTable24").Visible = True
    e.Form.Controls("RelationTable27").Visible = True
ElseIf s2 = "6003" OrElse s2 = "6004" Then
    e.Form.Controls("RelationTable3").Visible = True
    e.Form.Controls("RelationTable15").Visible = True
    e.Form.Controls("RelationTable22").Visible = True
    e.Form.Controls("RelationTable24").Visible = True
    e.Form.Controls("RelationTable27").Visible = True
    e.Form.Controls("RelationTable21").Visible = True
ElseIf s2 = "6005" OrElse s2 = "6006" Then
    e.Form.Controls("RelationTable4").Visible = True
    e.Form.Controls("RelationTable9").Visible = True
    e.Form.Controls("RelationTable28").Visible = True
    e.Form.Controls("RelationTable24").Visible = True
    e.Form.Controls("RelationTable27").Visible = True
ElseIf s2 = "6007" OrElse s2 = "6008" OrElse s2 = "6009" OrElse s2 = "6010" OrElse s2 = "6011" OrElse s2 = "6012" OrElse s2 = "6017" Then
    e.Form.Controls("RelationTable5").Visible = True
    e.Form.Controls("RelationTable11").Visible = True
    e.Form.Controls("RelationTable17").Visible = True
    e.Form.Controls("RelationTable8").Visible = True
    e.Form.Controls("RelationTable25").Visible = True
ElseIf s2 = "6013" OrElse s2 = "6014" OrElse s2 = "6015" OrElse s2 = "6016" OrElse s2 = "6018" OrElse s2 = "6019" OrElse s2 = "6020"  Then
    e.Form.Controls("RelationTable5").Visible = True
    e.Form.Controls("RelationTable11").Visible = True
    e.Form.Controls("RelationTable19").Visible = True
    e.Form.Controls("RelationTable8").Visible = True
    e.Form.Controls("RelationTable25").Visible = True
ElseIf s2 = "6100" OrElse s2 = "6101" OrElse s2 = "6102" OrElse s2 = "6103" OrElse s2 = "6104" OrElse s2 = "6105" OrElse s2 = "6106" OrElse s2 = "6107" Then
    e.Form.Controls("RelationTable6").Visible = True
    e.Form.Controls("RelationTable12").Visible = True
    e.Form.Controls("RelationTable29").Visible = True
    e.Form.Controls("RelationTable31").Visible = True
    e.Form.Controls("RelationTable33").Visible = True
ElseIf s2 = "6121" OrElse s2 = "6022" OrElse s2 = "6023" OrElse s2 = "6024" OrElse s2 = "6025" OrElse s2 = "6026" OrElse s2 = "6027" OrElse s2 = "6028" Then
    e.Form.Controls("RelationTable7").Visible = True
    e.Form.Controls("RelationTable13").Visible = True
    e.Form.Controls("RelationTable30").Visible = True
    e.Form.Controls("RelationTable32").Visible = True
    e.Form.Controls("RelationTable34").Visible = True
End If

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/3/22 10:57:00 [显示全部帖子]

不传文件只能自己慢慢费解了图片点击可在新窗口打开查看

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