|
6#
楼主 |
发表于 2009-2-26 11:34:32
|
只看该作者
原帖由 helius 于 2009-2-25 19:21 发表
For m = 0 To webTableColumn.Count -1
Set WebTableInstance=Browser("@@").Page("@@").WebTable("@@")
If Trim(WebTableInstance.GetCellData(i, search_List_Value(m))) = Trim(webTableColumn.Item(search_ ...
实在是抱歉,我没有说清楚,这段代码我是在一个function里写的,就是要他可重用和可移植。如果在function里面用变量对象的话,肯定出错。除非在把
WebTableInstance.GetCellData(i, search_List_Value(m))写成Browser("@@").Page("@@").WebTable("@@").GetCellData(i, search_List_Value(m))
才不会报错,这样就不利于function的重用。
function(WebTableInstance,webTableColumn)
search_List_Value=webTableColumn.keys
For m = 0 To webTableColumn.Count -1
If Trim(WebTableInstance.GetCellData(i, search_List_Value(m))) = Trim(webTableColumn.Item(search_List_Value(m))) Then
search = search + 1
End If
Next
end function |
|