标题: 关于测试查询结果集合问题！ [打印本页] 作者: luckxiaot 时间: 2008-6-25 10:29 标题: 关于测试查询结果集合问题！ Set res = createobject("ADODB.recordset")
DBConnect()
sql="select f_crt_user_org , f_scif_name,f_scif_type,f_scif_kind,f_author from tqms_scif_t where f_active='1'"
Dim sqlresult
ExecuteSql(sql)
Dim i,cell,j,aa
i=2
Do while not res.eof
If i =10 Then
i=2
Browser("browser").Page("page").Frame("contentMain").Image("下页").Click
End If
For j =1 to 5
Dim k
k= 0
cell=browser("browser").Page("page").Frame("contentMain").WebTable("机构").GetCellData(i,j)
sqlresult=res(k)
If cell<>sqlresult Then
reporter.ReportEvent micFail,"查询功能","查询结果错误！"
else
reporter.ReportEvent micPass,"查询功能","查询结果正确！"
End If
k=k+1
Next
res.movenext
i=i+1
Loop
DBClose()
偶是初学者，请高手帮忙看看，指点一下！！！！
这段代码不是我想要的结果。。
我通过数据库查询和前台WEBTABLE的值进行比较。我想让他一行一行的比较最后全通过了输出一个正确的结果，若有错输出一个错误的结果。作者: luckxiaot 时间: 2008-6-26 10:12
问题已经解决。。
如果有一行不对，就跳出循环 输出错误的REPORT就可以了！！
但是我发现如果数据存储的是数字，前台显示的是汉字转换起来非常麻烦。。大家有没有简单的方法啊？？
我做的是：
If res(k)="175" Then
f_scif_name="独立研究"
else if res(k)="176" Then
f_scif_name="联合研究"
else if res(k)="177" then
f_scif_name="外界研究"
end If
end if
end if
这样转换后才能和前台进行比对。。很无奈啊。。如果太多了。。转换起来太麻烦了！！！