在qtp中，如何在datatable中保留原来的值

andycai

这里想请问：在qtp中，如何在datatable中保留原来的值，该值是我运行时获取的。我每次运行后都是覆盖掉原来的。我也使用了setnextrow，但是行不通，我的目的是想让那些值一个一个显示出来，不被覆盖。
。。。。
DataTable.SetCurrentRow(id)
DataTable.Value("weblist_item",Global)=MyArray(id)
DataTable.GetSheet("Global").SetNextRow
。。。。它获取到的值都在第一行显示，然后运行第二次时就覆盖原来的值了

andycai

问题解决了。是datatable中的表格序号跟下拉框中的id号不一致造成值被覆盖。

andycai

下面是我写的脚本：
Dim id,itemname1,MyArray
For id =0 to 9
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "mercury"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "47cf9c1063f49dee314fdac4c282898774372e5f"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 23,11
itemname1=Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").GetROProperty("all items")
MyArray=Split(itemname1,";",-1,1)               
DataTable.SetCurrentRow(id)
DataTable.Value("weblist_item",Global)=MyArray(id)
DataTable.GetSheet("Global").SetNextRow
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").Select ("#")& id
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("toPort").Select "San Francisco"
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("toMonth").Select "December"
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Image("findFlights").Click 44,7
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").Image("reserveFlights").Click 75,13
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passFirst0").Set "andycai"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passLast0").Set "cai"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("creditnumber").Set "8888888888888888"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebCheckBox("ticketLess").Set "ON"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").Image("buyFlights").Click 50,14
Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").Image("home").Click
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours_2").Sync
Next
这个是我的脚本，但是运行时值总是覆盖原来的，没有换行显示在表格中，不知道上面有什么问题？？？

Mix

是不是这个意思？
Dim myarray
myarray = array(1,2,3,4,5)
arraylen = Ubound(myarray)+1
For i = 1 to arraylen
        datatable.setcurrentrow(i)
        datatable.Value("ID","Action1") = myarray(i-1)
        datatable.SetNextRow
Next

[ 本帖最后由 Mix 于 2008-4-7 17:13 编辑 ]