|
麻烦各位高手帮小女子看看这个问题。
图片在附件中。
Dim i
i= SwfWindow("WarehousePodium").SwfWindow("Maintain ASN[I-GUOWOS002-07052").SwfTable("grid").RowCount -1 ’得到grid中的行数,然后减1
SwfWindow("WarehousePodium").SwfWindow("Maintain ASN[I-GUOWOS002-07052").SwfTable("grid").SelectCell i,"Item No."
SwfWindow("WarehousePodium").SwfWindow("Item Lookup").SwfEdit("SwfEdit").Set "ITEM002"
SwfWindow("WarehousePodium").SwfWindow("Item Lookup").SwfObject("Search").Click 24,11
SwfWindow("WarehousePodium").SwfWindow("Item Lookup").SwfTable("grid").SelectRow 0
SwfWindow("WarehousePodium").SwfWindow("Item Lookup").SwfObject("Select").Click 36,8 '在Item No.中输入通过一个lookup form输入ITEM002
Wait(5)
SwfWindow("WarehousePodium").SwfWindow("Maintain ASN[I-GUOWOS002-07052").SwfTable("grid").SetCellData i,"Expected Pack",500 '在这一行的"Expected Pack中输入500
问题:当QTP运行到最后这一步的时候总是报expect error。
尝试修改的方法有:
SwfWindow("WarehousePodium").SwfWindow("Maintain ASN[I-GUOWOS002-07052").SwfTable("grid").SelectCell i,"Expected pack"
SwfWindow("WarehousePodium").SwfWindow("Maintain ASN[I-GUOWOS002-07052").SwfTable("grid").Type 500
结果:鼠标定位到"Expected Pack"这个column后,没有type进去值,就直接进到下一步.
以前同事告诉我有一个用.object的方法,但是现在我们都不记得了.
请各位帮帮忙.
谢谢了. |
|