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编辑过]
加好友 
发短信
Post By：2019/6/16 0:21:00 [显示全部帖子]
