主题：[求助]checkbox 异常问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:checkbox 异常问题.foxdb

 

 

checkbox 异常问题：

 

 

 

窗口与控件事件

 

BBB_CheckBox1_CheckedChanged

 

Dim chk As WinForm.CheckBox

chk = Forms("BBB").Controls("CheckBox1")

 

If chk.Checked = True Then

    Forms("AAA").Open()

End If

 

If chk.Checked =False  Then

    Forms("AAA").Close()

End If