主题：RelationTable控件哪去了

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

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

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

但是到底错在哪里？让人费解。

不传文件只能自己慢慢费解了

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

只找不到RelationTable1吗？
试试RelationTable2能不能找到。
把代码全部删除，换成
e.Form.Controls("RelationTable2").Visible = True
看看提示错误不？

光把窗口传上来也行

此主题相关图片如下：未命名.jpg

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

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

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

估计是个BUG 大家测试看看吧。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

感觉只能重新设计了 

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

是我的问题，下次更新前，会处理好的。