QTP解决webtable对象利用嵌套字典对象来转化

页面中存有大量的webtable,利用getcelldata方法，需要指定行、列的index. 但若在页面上用户

进行操作上排序，数据排列将发生变化，下面的方法，利用嵌套字典对象来转化,从而具有逻辑意义

表现访问单元格的值，从而减少参考物理单元格。(数据表如附件所示：)

 Dim oDataTable
 Dim solarExch
 Dim nRows

 set  ōDataTable=objIdentifyPage ("阿里助手","n").WebTable("text:=操作指南.*","index:=0").WebTable("text:=选择.*")
 Set solarExch = CreateObject("scrīpting.Dictionary")
 nRows=oDataTable.rowcount  
 For  nRow=2 to nRows
  symbolKey =oDataTable.getcelldata(nRow,2)
  solarExch.add symbolkey, createObject("scrīpting.Dictionary")
  solarExch(symbolKey).add "quantity", oDataTable.getcelldata(nRow,3)
  solarExch(symbolKey).add "price", oDataTable.getcelldata(nRow,4)
  solarExch(symbolKey).add "oneprice", oDataTable.getcelldata(nRow,5)
  solarExch(symbolKey).add "highprice", oDataTable.getcelldata(nRow,6)
  solarExch(symbolKey).add "situation", oDataTable.getcelldata(nRow,7)
  
 Next

    msgbox solarExch("asf").item("oneprice")'显示附土中，asf(关键词)这一行，一口价的值，并不依赖当前行列的顺序，即便重新排序。
    msgbox solarExch("试纸").item("price")

原文转自：http://www.ltesting.net