主题：逻辑判断

1、checkbox的checkedchanged事件

 

If e.sender.checked Then

    e.form.controls("textbox1").text = date.today

Else

    e.form.controls("textbox1").text = Nothing

End If

 

2、打印按钮

 

If e.form.controls("checkbox1").checked = false orelse e.form.controls("checkbox2").checked = false then

    msgbox("没勾选")

    return

End If

'打印代码