以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  取值控件连接符问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136560)

--  作者：ezilu --  发布时间：2019/6/16 0:21:00 --  取值控件连接符问题 Dim ctrs() As String = {"TextBox1","TextBox2","TextBox3","TextBox7","TextBox8","TextBox9","TextBox10","TextBox11","TextBox12","TextBox13","ComboBox1","ComboBox2","ComboBox3","ComboBox4","ComboBox5","DateTimePicker1","DateTimePicker2","CheckedComboBox1"} \'定义控件名称 For Each ctr As String In ctrs \'逐列取值     If e.Form.Controls("TextBox1").Value = yhgh OrElse e.Form.Controls("ComboBox5").Value = glzmc Then     e.Form.Controls("\' & ctr & \'").Enabled = True     Else     e.Form.Controls("\' & ctr & \'").Enabled = False     End If Next 红色区域怎么写？谢谢 [此贴子已经被作者于2019/6/16 0:21:48编辑过]

--  作者：有点蓝 --  发布时间：2019/6/17 9:24:00 --       如果不是合成条件表达式的，不需要加什么单引号双引号之类的 e.Form.Controls(ctr ).Enabled = True     Else     e.Form.Controls(ctr ).Enabled = False