[求助]用复选框做一个单项、多项选择的通用程序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]用复选框做一个单项、多项选择的通用程序

共有4863人关注过本帖树形打印复制链接主题：[求助]用复选框做一个单项、多项选择的通用程序

dd6b

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00

[求助]用复选框做一个单项、多项选择的通用程序 发帖心情

Post By：2013/12/22 16:11:00 [显示全部帖子]

我想做一个在线考试系统，想用复选框模拟个单项、多项选择通用的选择题，不知全局事件CheckedChanged中怎么写。比如我的“题库”表里“答案”列里存着正确答案，如果选择正确，则在“标记”列里赋1值，选择错误，在“标记”列里赋2值.

[此贴子已经被作者于2013-12-22 16:18:40编辑过]

dd6b

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00

Post By：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

dd6b

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00

Post By：2013/12/22 17:48:00 [显示全部帖子]

太伤自尊了，就当我没问，还是我自己想吧。

dd6b

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00

Post By：2013/12/22 21:56:00 [显示全部帖子]

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

下一主题 >> << 上一主题

主题：[求助]用复选框做一个单项、多项选择的通用程序