redim preserve 在数组上的应用
上一篇 /
下一篇 2010-10-20 17:25:07 / 天气: 晴朗
/ 心情: 高兴
/ 个人分类：qtp
If browser("SMS Lite").Page("SMS Lite").WebTable("Offerign_table_offering").RowCount>1 Then
Dim offeringName(),rowsCount
rowsCount=browser("SMS Lite").Page("SMS Lite").WebTable("Offerign_table_offering").RowCount
For i=1 to rowsCount-1
ReDim preserve offeringName(i)
offeringName(i)=browser("SMS Lite").Page("SMS Lite").WebTable("Offerign_table_offering").GetCellData(i+1,3)
Msgbox( offeringName(i) )
Next
else
msgbox("找不到该服务类型定价数据")
End If
收藏
举报
TAG:
redim
preserve
