|
5#
楼主 |
发表于 2008-8-7 18:09:19
|
只看该作者
多谢楼上几位指点,已经解决了。我用了一种比较笨的方法,楼上的方法我会去试下。不过转成字符型的我已经试过了,不通过。下面是我的思路:把对象的数据和变量全都放到Global中,取出来时自然就是同一种类型了。
If not objrsa.eof Then
' 存放到Global中
'获取Sheet表中数据
Set Sheet = DataTable.GetSheet("Global")
'读取Global表中A,B两列数据
Set Parameter1 = Sheet.GetParameter("A")
Set Parameter2 = Sheet.GetParameter("B")
' 将查询得到的实际记录数与预期记录数放入Global中等待对比
Parameter1.Value= objrsa("count(*)")
Parameter2.Value= expectvalue
' 判断预期记录数是否与实际查询得到的记录数相同
Select Case Parameter1=Parameter2
Case true
reporter.reportevent micpass,"返回结果码","1"
Case false
reporter.reportevent micpass,"返回结果码","0"
Case else
reporter.reportevent micpass,"返回结果码","-1,&":err.source,err.description&""
End Select
End if |
|