当前位置: 代码迷 >> VFP >> check解决方案
  详细解决方案

check解决方案

热度:3966   发布时间:2013-02-26 00:00:00.0
check
我在vfp中设置了多选题,用几个check控件作为答案选择,当点击check打勾后,更新答案,要怎么编程?
比如check1代表A,check2代表B,check3代表C,check4代表D,点击打勾check1,则检测其它有没打勾,有的话就几个答案合并在一起更新表里的数据,当点击取消打勾,同样进行检测更新答案!
------解决方案--------------------------------------------------------
加2个按钮,一个叫 提交答案,另一个叫 重答

*--提交答案 按钮的 Clcik 事件代码
Select 表名 && 此表之前要先打开
* 之前已移到问题所在记录行
lc答案变量=IIf(Thisform.Check1.Value=1,'A','')+IIf(Thisform.Check2.Value=1,'B','')+IIf(Thisform.Check3.Value=1,'B','')+IIf(Thisform.Check4.Value=1,'D','')
Replace 答案字段 With lc答案变量

*-- 重答 安扭的 Click 事件代码
With Thisform
    .Check1.Value=0
    .Check2.Value=0
    .Check3.Value=0
    .Check4.Value=0
Endwith

  相关解决方案