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


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

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


加好友 发短信
等级：一尾狐 帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00 		RelationTable控件哪去了  发帖心情 Post By：2009/3/21 14:08:00 [显示全部帖子]

3月16号的更新是否将RelationTable（关联表）的控件搞丢了。

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


加好友 发短信
等级：一尾狐 帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00 		  发帖心情 Post By：2009/3/21 17:23:00 [显示全部帖子]

控件名称变化了，原先的设置就麻烦了， 呜呜......

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


加好友 发短信
等级：一尾狐 帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00 		  发帖心情 Post By：2009/3/21 20:05:00 [显示全部帖子]

不管它不行吧，看错误提示： “找不到名称为“RelationTable1”的控件！”

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


加好友 发短信
等级：一尾狐 帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00 		  发帖心情 Post By：2009/3/21 21:19:00 [显示全部帖子]

请教 CZY超级版主 ，原来以下编码都行的，更新后就出现了以上情况 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" 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 = "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" 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 = "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" 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 = "6008" Then e.Form.Controls("RelationTable5").Visible = True e.Form.Controls("RelationTable11").Visible = True e.Form.Controls("RelationTable10").Visible = True e.Form.Controls("RelationTable8").Visible = True e.Form.Controls("RelationTable25").Visible = True ElseIf s2 = "6009" 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 = "6010" 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 = "6011" 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 = "6012" 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" 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 = "6014" Then e.Form.Controls("RelationTable5").Visible = True e.Form.Controls("RelationTable11").Visible = True e.Form.Controls("RelationTable16").Visible = True e.Form.Controls("RelationTable8").Visible = True e.Form.Controls("RelationTable25").Visible = True ElseIf s2 = "6015" 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 = "6016" 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 = "6017" Then e.Form.Controls("RelationTable5").Visible = True e.Form.Controls("RelationTable11").Visible = True e.Form.Controls("RelationTable18").Visible = True e.Form.Controls("RelationTable8").Visible = True e.Form.Controls("RelationTable25").Visible = True ElseIf s2 = "6018" 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 = "6019" 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 = "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" 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 = "6101" 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 = "6102" 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 = "6103" 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 = "6104" 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 = "6105" 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 = "6106" 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 = "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" 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 ElseIf s2 = "6122" 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 ElseIf s2 = "6123" 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 ElseIf s2 = "6124" 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 ElseIf s2 = "6125" 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 ElseIf s2 = "6126" 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 ElseIf s2 = "6127" 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 ElseIf s2 = "6128" 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

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


加好友 发短信
等级：一尾狐 帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00 		  发帖心情 Post By：2009/3/21 21:49:00 [显示全部帖子]

回到2008.12.23的更新（正好手头有），以上编码完全正常通过，想白了几根头发，也没想通，唉....

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


加好友 发短信
等级：一尾狐 帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00 		  发帖心情 Post By：2009/3/22 9:46:00 [显示全部帖子]

10楼说的对，中间都一样的～RelationTable 多了而已，怪我往帖子上粘帖的时候没注意排布，让人看了眼花缭乱的，抱歉了。

但是到底错在哪里？让人费解。
 回到顶部
帅哥哟，离线，有人找我吗？
lkqing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00 		  发帖心情 Post By：2009/3/22 11:04:00 [显示全部帖子]

文件太大，且是sql外部数据源，上传文件有困难，请谅解。

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


加好友 发短信
等级：一尾狐 帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00 		  发帖心情 Post By：2009/3/22 12:24:00 [显示全部帖子]

IXI版主，我将窗口传上，请查收。

 错误：文件类型不正确!   传不上来

已将窗口用邮件发往 IXI版主邮箱。

[此贴子已经被作者于2009-3-22 12:41:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lkqing
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00 		  发帖心情 Post By：2009/3/22 16:08:00 [显示全部帖子]

如果是BUG,应是更新以后产生的，因为以前正常。

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


加好友 发短信
等级：一尾狐 帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00 		  发帖心情 Post By：2009/3/23 20:17:00 [显示全部帖子]

非常感谢21楼 don 精简了代码。

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