[求助]这段代码怎么修改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

红袍老师，这段代码怎么修改？

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

主题：[求助]这段代码怎么修改？