If e.Sender.Text = "无" Then Dim chk As WinForm.CheckBox chk = Forms("订单编辑").Controls("CheckBox5") chk.Checked = True chk.WriteValueEnd If
最合适的作法是http://www.foxtable.com/help/topics/2436.htm