我想问一下，VB里公共模块中定义的数据会不会随着对象的撤销而消失？我的是一个学生考试管理系统，想把成绩存储并查询可以实现么？以下代码如下
其中，试卷类的SubjectiveScore 属性的基本算法是从试题信息表中选取题目类型为1(填
空题)和5(问答题)的记录，并计算它们的“Commence”字段的和，它表示学生类用户的主
观题得分。具体定义代码如下：
Public Property Get SubjectiveScore( ) As Single
On Error Resume Next
Dim SubScore As Single
SubScore = 0
DataEnv.rsQstPaper.Open ’打开rsQstPaper 数据集
DataEnv.rsQstPaper.Filter = "QuestionType = 1 or QuestionType = 5" ’设置数据集过滤器
While Not DataEnv.rsQstPaper.EOF
SubScore = SubScore + DataEnv.rsQstPaper.Fields("Commence") ’获取Commence 字段值
DataEnv.rsQstPaper.MoveNext
Wend
DataEnv.rsQstPaper.Filter = " " ’清空数据集过滤器
DataEnv.rsQstPaper.Close ’关闭数据集
SubjectiveScore = SubScore
End Property
从试题信息表中选取题目类型为1(填
空题)和5(问答题)的记录，怎么判定题目类型为1的是填
空题，是在数据库中添加记录，还是自己主观规定啊？跪求VB高手交流

[ 本帖最后由 Andrew201110 于 2012-1-17 09:51 编辑 ]

期待高手出現,我也需要這方面的知識

正如你自己说的“在数据库中添加记录，还是自己主观规定”都可以办到