主题：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
.......
中间都一样的～～RelationTable 太多了而已
.......

End If