|
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的值进行比较。我想让他一行一行的比较最后全通过了输出一个正确的结果,若有错输出一个错误的结果。 |
|