关于测试查询结果集合问题！

luckxiaot

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

问题已经解决。。
如果有一行不对，就跳出循环 输出错误的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
这样转换后才能和前台进行比对。。很无奈啊。。如果太多了。。转换起来太麻烦了！！！