以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]用复选框做一个单项、多项选择的通用程序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44078)
--  作者：dd6b
--  发布时间：2013/12/22 16:11:00
--  [求助]用复选框做一个单项、多项选择的通用程序
我想做一个在线考试系统，想用复选框模拟个单项、多项选择通用的选择题，不知全局事件CheckedChanged中怎么写。比如我的“题库”表里“答案”列里存着正确答案，如果选择正确，则在“标记”列里赋1值，选择错误，在“标记”列里赋2值.
[此贴子已经被作者于2013-12-22 16:18:40编辑过]
--  作者：程兴刚
--  发布时间：2013/12/22 16:45:00
--  
发示例文件，少说话多做事，解决起来更快！
--  作者：dd6b
--  发布时间：2013/12/22 17:11:00
--  

 单项选择我是这样做的，但是多项选择不知怎么办。假设复选框的名字就为 "A"、"B"或"C"

Select Case e.Sender.Name
Case "A"
            If "A"= Tables("题库").Current("答案") Then
                Tables("题库").Current("标记") = 1
            Else
                Tables("题库").Current("标记") = 2
                           End If
Case "B"
            If "B"= Tables("题库").Current("答案") Then
                Tables("题库").Current("标记") = 1
            Else
                Tables("题库").Current("标记") = 2
            End If
 Select Case e.Sender.Name
Case "C"
            If "C"= Tables("题库").Current("答案") Then
                Tables("题库").Current("标记") = 1
            Else
                Tables("题库").Current("标记") = 2
            End If
--  作者：y2287958
--  发布时间：2013/12/22 17:15:00
--  
上个例子吧
--  作者：lsy
--  发布时间：2013/12/22 17:21:00
--  

楼主现在的水平，连照本宣科都达不到，为什么就是不肯发示例项目呢？

有了实例，别人才能更准确理解你的意图，做出来的东西，比你想要的可能更有效率。
--  作者：程兴刚
--  发布时间：2013/12/22 17:41:00
--  
我明白他说啥，但是我比他懒，要想学好狐表，懒了是不行的，所以还是等楼主动动手再说。
--  作者：dd6b
--  发布时间：2013/12/22 17:48:00
--  
太伤自尊了，就当我没问，还是我自己想吧。
--  作者：有点甜
--  发布时间：2013/12/22 19:16:00
--  
 你的思路错了，既然是答题，就应该有上一题、下一题、或者确认的按钮，代码应该写在那里。

 因为单选/多选的话，你如何判断人家什么时候选择完毕？
--  作者：dd6b
--  发布时间：2013/12/22 21:56:00
--  

非常感谢，我在点“下一题”时对上一题答案进行判断。