Set curPage=Browser("name:=系统 - 待处理工作列表").Page("title:=系统 - 待处理工作列表")
Set curSHPage=Browser("name:=系统 - 工作表单").Page("title:=系统 - 工作表单")
With curPage
'‘获取webtable的总行数,放入rows
Dim rows,lch,i
i=1
rows = .WebTable("html tag:=TABLE","name:=部门审批").GetROProperty("rows")
For i = 2 to rows
' ‘把第二行开始的第二列的值放入lch中
lch = .WebTable("html tag:=TABLE","name:=部门审批").GetCellData(i,1)
' ‘判断如果两者一致,则选择该行,点确定按钮
If lch =Parameter("FMClch") Then
.Link("text:=部门审批").Click‘这句会提示这个对象存在多个。怎么区分这个对象呢,部门审批其它属性值都差不多,就是链接不一样,
End If
Next
End With[attach]75055[/attach][attach]75055[/attach][attach]75055[/attach]