窗口中加入一个button,做成单选框样式,事件为Dim str As String = "TextBox1,TextBox2,NumericComboBox1,ComboBox1"
Dim bln As Boolean = e.sender.Checked
For Each k As String In str.split(",")
e.form.Controls(k).Enabled = bln
Next
Tables("生产排版").AllowEdit = bln
Tables("排版输入窗_Table1").AllowEdit = bln
然后在窗口的afterload事件中, 写一个button.PerformClick