asp BOF 或 EOF 中有一个是"真",或者当前的记录已被删除,所需的操作要求一个当前的
ADODB.Recordset错误'800a0bcd'BOF或EOF中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。Setrs=conn.exec...
ADODB.Recordset 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
Set rs= conn.execute(" SELECT distinct 序号,检验参数 FROM [baogao] WHERE [IDD]="&id&" order by 序号")
templateContent=replace(templateContent,"[检验项目]",rs.GetString( , , ".", ";",""))
rs.close()
If jyjl="所检项目符合检验规范要求" Then
templateContent=replace(templateContent,"[检验结论]",jyjl)
Else
'2014-11-6修改开始
Set rs= conn.execute(" SELECT count(distinct 检验参数) FROM [baogao] WHERE [IDD]="&id&" and [单项判定]=0 and 检验结果 <>'不适用'")
failnum=rs(0)
rs.close()
Set rs= conn.execute(" SELECT distinct top 7 检验参数 FROM [baogao] WHERE [IDD]="&id&" and [单项判定]=0 and 检验结果 <>'不适用'")
'2014-11-6修改结束
If rs.recordcount>1 then
templateContent=replace(templateContent,"[检验结论]","所检项目中“"&rs.GetString( , , "", "、","")&"”共计"&failnum&"项参数不符合检验规范要求")
Else
templateContent=replace(templateContent,"[检验结论]","所检项目中“"&rs.GetString( , , "", "、","")&"”参数不符合检验规范要求")
End if
rs.close()
End If
哪的错呢? 展开
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
Set rs= conn.execute(" SELECT distinct 序号,检验参数 FROM [baogao] WHERE [IDD]="&id&" order by 序号")
templateContent=replace(templateContent,"[检验项目]",rs.GetString( , , ".", ";",""))
rs.close()
If jyjl="所检项目符合检验规范要求" Then
templateContent=replace(templateContent,"[检验结论]",jyjl)
Else
'2014-11-6修改开始
Set rs= conn.execute(" SELECT count(distinct 检验参数) FROM [baogao] WHERE [IDD]="&id&" and [单项判定]=0 and 检验结果 <>'不适用'")
failnum=rs(0)
rs.close()
Set rs= conn.execute(" SELECT distinct top 7 检验参数 FROM [baogao] WHERE [IDD]="&id&" and [单项判定]=0 and 检验结果 <>'不适用'")
'2014-11-6修改结束
If rs.recordcount>1 then
templateContent=replace(templateContent,"[检验结论]","所检项目中“"&rs.GetString( , , "", "、","")&"”共计"&failnum&"项参数不符合检验规范要求")
Else
templateContent=replace(templateContent,"[检验结论]","所检项目中“"&rs.GetString( , , "", "、","")&"”参数不符合检验规范要求")
End if
rs.close()
End If
哪的错呢? 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询