以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]这段代码怎么修改？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86025)
--  作者：scofields
--  发布时间：2016/6/8 10:48:00
--  [求助]这段代码怎么修改？
红袍老师，这段代码怎么修改？
Select Case
    Case "CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox6","CheckBox7","CheckBox8","CheckBox9",,"CheckBox10"
        If e.Sender.Checked Then
      e.Form.Controls("车号1").enabled=False
 e.Form.Controls("车号2").enabled=False
 e.Form.Controls("车号3").enabled=False
 e.Form.Controls("车号4").enabled=False
 e.Form.Controls("车号5").enabled=False
 e.Form.Controls("车号6").enabled=False
 e.Form.Controls("车号7").enabled=False
 e.Form.Controls("车号8").enabled=False
 e.Form.Controls("车号9").enabled=False
 e.Form.Controls("车号10").enabled=False
 e.Form.Controls("客户").enabled=False
 e.Form.Controls("子客户").enabled=False
 e.Form.Controls("包装").enabled=False
 e.Form.Controls("品种").enabled=False
Else
 e.Form.Controls("车号1").enabled=True
 e.Form.Controls("车号2").enabled=True
 e.Form.Controls("车号3").enabled=True
 e.Form.Controls("车号4").enabled=True
 e.Form.Controls("车号5").enabled=True
 e.Form.Controls("车号6").enabled=True
 e.Form.Controls("车号7").enabled=True
 e.Form.Controls("车号8").enabled=True
 e.Form.Controls("车号9").enabled=True
 e.Form.Controls("车号10").enabled=True
    e.Form.Controls("客户").enabled=True
 e.Form.Controls("子客户").enabled=True
 e.Form.Controls("包装").enabled=True
 e.Form.Controls("品种").enabled=True
       End If
    End Select
--  作者：大红袍
--  发布时间：2016/6/8 11:42:00
--  

参考代码

 

Dim ctls1() As String = {"CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox6","CheckBox7","CheckBox8","CheckBox9","CheckBox10"}
Dim ctls2() As String = {"车号1", "车号2", "车号3"}
for i as integer = 0 to ctls1.length - 1
    If e.form.controls(ctls1(i)).Checked Then
        e.form.controls(ctls2(i)).Enabled = True
    Else
        e.form.controls(ctls2(i)).Enabled = False
    End If
next