提示没有select
我设置了两个控件数组,一个是text1(),另一个是label1()
同时设置了一个combobox
运行时提示 Case "国际级 " 这句没有select
Combo1.List(0) = "国际级 "
Combo1.List(1) = "国家级 "
Combo1.List(2) = "省市级 "
Combo1.List(3) = "企业合作 "
Select Case Combo1.Text
Case " "
For i = 0 To 11
Text1(i).Visible = False
Label1(i + 1).Visible = False
sub1.Visible = False
Next i
Case "企业合作 "
For i = 0 To 11
Text1(i).Visible = True
Label1(i + 1).Visible = True
sub1.Visible = True
Case "国际级 "
For i = 0 To 5
Text1(i).Visible = True
Label1(i + 1).Visible = True
sub1.Visible = True
Case "国家级 "
For i = 0 To 5
Text1(i).Visible = True
Label1(i + 1).Visible = True
sub1.Visible = True
Case "省市级 "
For i = 0 To 5
Text1(i).Visible = True
Label1(i + 1).Visible = True
sub1.Visible = True
End Select
[解决办法]
Case "企业合作 "
For i = 0 To 11
Text1(i).Visible = True
Label1(i + 1).Visible = True
sub1.Visible = True
Case "国际级 "
For i = 0 To 5
Text1(i).Visible = True
Label1(i + 1).Visible = True
sub1.Visible = True
Case "国家级 "
For i = 0 To 5
Text1(i).Visible = True
Label1(i + 1).Visible = True
sub1.Visible = True
Case "省市级 "
For i = 0 To 5
Text1(i).Visible = True
Label1(i + 1).Visible = True
sub1.Visible = True
你这些for循环里都没有next!!!!!!!!!!!!!!!!
加上就好了
[解决办法]
楼主的for语句从Case "企业合作 "开始就没Next的
把Next加上去再试试
[解决办法]
For i = 0 To 5
Text1(i).Visible = True
Label1(i + 1).Visible = True
sub1.Visible = True
next i
养成好习惯!!!,注意程序的缩进,出错好查!!!