以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  点击按钮输入相应的文字  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97042)
--  作者：wu725
--  发布时间：2017/3/4 21:16:00
--  点击按钮输入相应的文字
请大家帮忙，我设计了一个调查问卷，想通过点击复选按钮是，指定第二列输入“有”，点击否在第二列中输入“没有”，第二列中有和没有只能唯一，不能同时存在。类型的有第三列、第四列都有对应选择是否按钮。
问卷样式
问1：请问有没有普查员到您家登记农业普查数据？
有    没有
问2：你是否是王莫某？
是   否

样表
问1点击按钮有，第二列显示结果有
问2点击按钮否，第三列显示结果否
请赐教！！！
--  作者：wyz20130512
--  发布时间：2017/3/5 0:10:00
--  
设为逻辑列即可
[此贴子已经被作者于2017/3/5 0:10:43编辑过]
--  作者：有点色
--  发布时间：2017/3/5 11:52:00
--  

CheckedChanged 事件

 

Dim c1 As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim c2 As WinForm.CheckBox = e.Form.Controls("CheckBox2")

If c1.name = e.Sender.name Then
    c2.Checked = not e.Sender.Checked
ElseIf c2.name = e.sender.name Then
    c1.Checked = not e.Sender.Checked 
End If

If e.sender.Checked Then        
    Tables("表B").Current("第三列") = e.sender.text       
End If