Case "CheckBox1"
Dim cks As WinForm.CheckBox = e.Sender
If cks.Checked Then
Tables("生产时间_table1").Cols("预处理时间1").Visible = True
Tables("生产时间_table1").Cols("预处理清场1").Visible = True
Else
Tables("生产时间_table1").Cols("预处理时间1").Visible = False
Tables("生产时间_table1").Cols("预处理清场1").Visible = False
End If
Case"CheckBox2"
Dim cks As WinForm
如上，每次调整好select case 后，按下重拍，总会将后面的case 缩进去。如何调整？