主题：考试

老师好！

Dim sql As String = CExp("exec [upd_GetNextNewQuestionFor] @OpenID='{0}',@SelectTestType={1}",openid ,subType)  '     
dt = Functions.Execute("Cmd_GetDataTable","Q",sql)

产生的QuestionID没有在题库里刚增加的新题，怎么同步？我是批量复制进去的选择题和判断题。

'从问题顺序表获取一道题
  Dim sql As String = CExp("exec [upd_GetNextNewQuestionFor] @OpenID='{0}',@SelectTestType={1}",openid ,subType)
  dt = Functions.Execute("Cmd_GetDataTable","Q",sql)

取出的题QuestionID都是旧题，没有我们在选择题、判断题里新增的题QuestionID。

调用下面函数重置数据

老师好！

  在考试系统中并发现象很严重，尤其是点下一题时更为严重。用异步函数试着做了一下，可能没有做对，怎样改呢？

我是在这里修改的：

          Case "test\nextquestion.htm" '上一题/下一题按钮ajex调用
            e.AsyncExecute = True
            Functions.AsyncExecute("NextQuestion",e)

在NextQuestion这个函数结束的：        
                '获取上一题
e.WriteString("错误: 表单(" & e.Path & ")提交出错!")
Return ""
e.Handled = True '通知系统异步函数执行完毕,可以关闭信道

但是没有效果，还经常出错，老师应该怎么改呢？

需要把函数里所有使用到table和datatable的代码全部都改为直接操作后台数据库

老师：改后还是有问题。

Dim dt1 As DataTable

cmd.CommandText = "sele  ct * from {UsersCodeAnswerForm} where TestID = '" & testid & "' And Seq = " & seq
dt1 = cmd.ExecuteReader(True)
dr = dt1.DataRows(0)

If dr IsNot Nothing Then

这是在异步函数改后的代码，不知是否能用？

以下是原有的代码里面也有datatable，应该不用改动吧？

 Dim sql As String = "exec [upd_GetAnswerQuestionCount] @TestID= '" & testid  & "'"
 Dim dt As DataTable = Functions.Execute("Cmd_GetDataTable","Q",sql)

异步函数里执行的同步函数不用改吧？