标题: 如何解决动态对象作为参数传递的问题 [打印本页] 作者: souchy 时间: 2010-4-22 15:30 标题: 如何解决动态对象作为参数传递的问题 例如：
Dim objWebTable
Dim objLink
set objWebTable=Browser("×××").Page("×××").Frame("main").WebTable("礼品编号")
set objLink=Browser("×××").Page("×××").Frame("main").Link("后页")
MergeGiftID=FunMergeGiftID(objWebTable,objLink)
Function FunMergeGiftID(objWebTable,objLink)
Dim strText
Dim intRow
Dim TF
Dim ID
Dim GiftID
TF=false
Do
'strText=objWebTable.Object.outerHTML
'intRow=objWebTable.Object.rows.length
strText=objWebTable.GetROProperty("outerHTML")
intRow=objWebTable.GetROProperty("rows")
ID=FunGiftID(strText) '这里是一个获取当前页数据的函数，返回当前页的数据集合
If TF Then
GiftID=MergeArray(GiftID,ID) '这里是一个合并数组函数，返回合并后的数组（函数不存在问题）
else
GiftID=ID
End If
If intRow=11 and objLink.Exist(1) Then
objLink.Click '点击翻页
TF=True
else
Exit do
End If
Loop
FunMergeGiftID=GiftID
End Function