如何点选table中第一行的值 进行右键的相关操作

 

 

setting.webpackage("ReplayType")=2
Dim obj2
Dim rowNum2
Set Desc = Description.Create()
Desc("micclass").Value ="WebTable"
Desc("text").Value ="Document Source SystemDocument TypeDateOwnerStatusDocument NumberEntry NumberPurchase OrderStyle. IdDocument CurrencyPagerPage.*"
Set editobjects=Browser("Actual Costing System").Page("Document").ChildObjects(Desc)
fCount=Browser("Actual Costing System").Page("Document").ChildObjects(Desc).Count
For i=0 to fCount-1
  Set obj2=editobjects(i)
  rowNum2=obj2.GetRowWithCellText("DAMCO")
  obj2.ChildItem(rowNum2,1,"WebElement",0).Click ,,micRightBtn
  obj2.ChildItem(rowNum2,1,"WebElement",0).Click 2,2,micRightBtn
  Exit for
Next
setting.webpackage("ReplayType")=1
'Browser("Actual Costing System").Page("Document").WebElement("Document Detail").Click
Browser("Actual Costing System").Page("Document").WebElement("DocumentEdit").Click
'Browser("Actual Costing System").Page("Document").WebElement("Matching Receipts").Click
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''Hemisphere