Dim chk As WinForm.CheckBox = e.Form.Controls("需要录入码单")
Dim mdbj As WinForm.Button = e.Form.Controls("码单编辑")
Dim mdhfz As WinForm.Button = e.Form.Controls("码单行复制")
Dim maqr As WinForm.Button = e.Form.Controls("码单保存")
Dim mdsc As WinForm.Button = e.Form.Controls("码单删除")
Dim mdzj As WinForm.Button = e.Form.Controls("码单增加")
mdbj.Enabled = chk.Checked mdhfz.Enabled = chk.Checked
……
mdzj.Enabled = chk.Checked
Tables("入库明细码单").AllowEdit = chk.Checked