主题：RelationTable控件哪去了

Dim s,T,Tz() As String
e.Form.Controls("RelationTable1").Visible = True
s = e.Form.Controls("TextBox1").Value

Select Case Val(s.SubString(0,4))
    Case 6001
        T = "2,14,20,23,26"
    Case 6002
        T = "3,15,22,24,27"
    Case 6003,6004
        T = "3,15,21,22,24,27"
    Case 6005,6006
        T = "4,9,24,27,28"
    Case 6007 to 6012,6017
        T = "5,8,11,17,28"
    Case 6013 to 6016,6018 to 6020
        T = "5,8,11,19,25"
    Case 6100 to 6107
        T = "6,12,29,31,33"
    Case 6121,6022 to 6028
        T = "7,13,30,32,34"
End Select

Tz = T.split(",")
if Tz.length > 1 then
    for  n As Integer = 0 to Tz.length-1
        e.Form.Controls("RelationTable" & Tz(n)).Visible = True
    Next
end if