请哪位帮忙看看代码哪里有误（等待，非常感谢）

mizhe521 · 发表于 2010-1-25 11:55:58

Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统－登陆系统").WebEdit("ctl04$UserName").Set "amd5"
Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统－登陆系统").WebEdit("ctl04$Password").SetSecure "4b595693a5729ae9"
Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统－登陆系统").Image("ctl04$ImageButton1").Click 25,13
Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("FunctionTree").Link("决策支持管理").Click
Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("FunctionTree").Link("配变电压合格率查询").Click
Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("

lugInRunService").Image("ctl05$btnQuery").Click 36,11
'连接数据库
Dim conn,res
Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString="DSN=sql2005;UID=sa

WD=sa;APP=QuickTest Professional;WSID=MICUI;DATABASE=amd5New"
Set res=CreateObject("ADODB.RecordSet")
j=1
Do
'是否存在下一页
isNextPageFlag =Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("

lugInRunService").Link("下一页").GetROProperty("visible")
'table总行数
RowCount =Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("

lugInRunService").WebTable("供电所名称").GetROProperty("rows")
isCorrect = False
For i=0 to RowCount-1
'供电所名称
name1=Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("

lugInRunService").WebTable("供电所名称").GetCellData(i,1)
'变压器名称
name2=Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("

lugInRunService").WebTable("供电所名称").GetCellData(i,2)
'A相电压合格率
name3=Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("

lugInRunService").WebTable("供电所名称").GetCellData(i,3)
'B相电压合格率
name4=Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("

lugInRunService").WebTable("供电所名称").GetCellData(i,4)
'C相电压合格率
name5=Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("

lugInRunService").WebTable("供电所名称").GetCellData(i,5)
Set res=CreateObject("ADODB.RecordSet")
strsql="select e.name as 供电所名称 ,b.Adaptername as 变压器名称 ,CONVERT(VARCHAR,cast(1-CONVERT(FLOAT,AXDYCSXSJ+AXDYCXXSJ)/CONVERT(FLOAT,AXHGSJ) AS decimal(18,4) ) *100) as A相合格率,CONVERT(VARCHAR,cast(1-CONVERT(FLOAT,BXDYCSXSJ+BXDYCXXSJ)/CONVERT(FLOAT,BXHGSJ) AS decimal(18,4) ) *100) as B相合格率,CONVERT(VARCHAR,cast(1-CONVERT(FLOAT,CXDYCSXSJ+CXDYCXXSJ)/CONVERT(FLOAT,CXHGSJ) AS decimal(18,4) ) *100) as C相合格率 from pbjcdyhgsjb a inner join AdapterBaseInfo b on a.BYQBH=b.AdapterID inner join AdapterAndTransformerAreaMaps c on a.BYQBH=c.AdapterID inner join t_a_TransformerArea d on c.TraAreaCode=d.TraAreaCode inner join dbo.EWF_Organise e on d.OrganiseId=e.id inner join FeederInfo o on o.feederid=b.feederid Order By BYQBH"&j
conn.Open ConnectionString
res.Open strsql,conn
DBname1 = Res("供电所名称") ' res.Fields(i).Value
DBname2 = Res("变压器名称")
DBname3 = Res("A相合格率")
DBname4 = Res("B相合格率")
DBname5 = Res("C相合格率")
If Trim(name1)=Trim(DBname1) Then
If Trim(name2)=Trim(DBname2) Then
If Trim(name3)=Trim(DBname3) Then
If Trim(name4)=Trim(DBname4) Then
If Trim(name5)=Trim(DBname5) Then
isCorrect =true
else
Reporter.ReportEvent micFail ,"查询结果比较","查询失败，原因为：第"&j&"条数据的'供电所名称'页面数据与数据库数据不一致，预期数据为："&DBname5& "实际为"&name5
End If
else
Reporter.ReportEvent micFail ,"查询结果比较","查询失败，原因为：第"&j&"条数据的'供电所名称'页面数据与数据库数据不一致，预期数据为："&DBname4& "实际为"&name4
Exit for
End If
else
Reporter.ReportEvent micFail ,"查询结果比较","查询失败，原因为：第"&j&"条数据的'供电所名称'页面数据与数据库数据不一致，预期数据为："&DBname3& "实际为"&name3
Exit for
End If
else
Reporter.ReportEvent micFail ,"查询结果比较","查询失败，原因为：第"&j&"条数据的'供电所名称'页面数据与数据库数据不一致，预期数据为："&DBname2& "实际为"&name2
Exit for
End If
else
Reporter.ReportEvent micFail ,"查询结果比较","查询失败，原因为：第"&j&"条数据的'供电所名称'页面数据与数据库数据不一致，预期数据为："&DBname1& "实际为"&name1
Exit for
End If
j=j+1
Next
If isNextPageFlag=true Then
Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("

lugInRunService").Link("下一页").Click
End If
Loop Until isNextPageFlag = true
If isCorrect = True Then
MsgBox "查询正确"
else
MsgBox "查询失败"
End If
'关闭数据库连接
res.Close
conn.Close
Set res=nothing
Set conn=Nothing
Browser("供电所专业化管理信息系统－登陆系统").Page("供电所专业化管理信息系统").Frame("FrameTitle").Link("注销").Click