如何使脚本化的Datatable循环

monalisali

大家好：
我在编写一段关于datatable脚本时遇到一个问题，请大家帮我看看错在哪里了。
脚本的原意是在两个“SwfComboBox”中利用随机数任意选择一个搜索条件，然后利用Datatable.LocalSheet.AddParameter 语句在runtime
datatable中分别添加表头以及选择条件的数据。其中，搜索条件的循环次数是由For语句来控制的。 我没有在Keyword view进行过任何关于
datatable的设置，只想完全用脚本来实现datatable的创建，循环等操作。
我的问题：
1) 在For循环内的脚本只进行第一次循环，然后脚本就停止了，即搜索条件只会被执行一次
2) 当不在Keyword view中进行datatable操作时（这样的话当脚本写到关于datatable时，还需要进行相应的录制于datatable的设置，很麻烦
），如何在Expert view中完全用脚本来创建datatable,从而达到参数化某几个控件的目的？
脚本如下，略有点多。其中，For循环为12-57行，两个搜索条件是strkitorgname,strkitorglicense 它们的语句在19-22行

1. Set  mgbox = CreateObject ("WScript.Shell")
   
2. SwfWindow("食品安全电子化监管系统－－城市运行区").Activate
   
3. SwfWindow("食品安全电子化监管系统－－城市运行区").SwfWindow("日常监管子系统").Activate
   
4. SwfWindow("食品安全电子化监管系统－－城市运行区").SwfWindow("日常监管子系统").SwfLabel("选择监管对象").Click
   
5. '***************************************在中心厨房Tab中***************************************************
   
6. SwfWindow("食品安全电子化监管系统－－城市运行区").SwfWindow("监管对象设置").SwfRadioButton("中心厨房").Set
   
7. Set thewindow = SwfWindow("食品安全电子化监管系统－－城市运行区").SwfWindow("监管对象设置")
   
8. Dim subslistcount, yearslistcount
   
9.     subslistcount = thewindow.SwfComboBox("厨房区县").GetItemsCount
   
10.     yearslistcount = thewindow.SwfComboBox("厨房许可证发证日期").GetItemsCount
    
11. 
    
12. For i = 0 to yearslistcount -1
    
13. thewindow.SwfRadioButton("中心厨房").Set
    
14. Dim randdata, subsdata, licdatedata
    
15. Randomize
    
16. randdata =  int (((yearslistcount-1) * Rnd) +1)
    
17. thewindow.SwfComboBox ("厨房区县").Select randdata
    
18. thewindow.SwfComboBox ("厨房许可证发证日期").Select randdata
    
19. subsdata = thewindow.SwfComboBox("厨房区县").GetItem (randdata)
    
20. licdatedata= thewindow.SwfComboBox("厨房许可证发证日期").GetItem (randdata)
    
21. Datatable.LocalSheet.AddParameter "中心厨房区县", subsdata
    
22. Datatable.LocalSheet.AddParameter "中心厨房发证日期", licdatedata
    
23. mgbox.Popup "此时的I="& i & vbnewline &_
    
24.                        "选择的区县是:"& "  " & subsdata & vbnewline &_
    
25.         "发证的日期是" & "  " & licdatedata, 5, " ",1
    
26.         
    
27. 'thewindow.SwfComboBox("厨房区县").Select "闵行"
    
28. thewindow.SwfToolbar("swfname:=bindingNv","swfname
    
29. path:=bindingNv;pnlToolbar;organizationSearchControl2;pnlCntKitchen;OrganizationDialog").Press "查询"
    
30. Set KitTable = SwfWindow("食品安全电子化监管系统－－城市运行区").SwfWindow("监管对象设置").SwfTable
    
31. ("swfname:=dgvOrganizationList","swfname
    
32. path:=dgvOrganizationList;organizationSearchControl2;pnlCntKitchen;OrganizationDialog")
    
33. Dim intkitrowcount,randomrow
    
34. Dim strkitorgname, strkitorglicense
    
35. intkitrowcount =  KitTable.RowCount
    
36. Randomize
    
37. randomrow = int (((intkitrowcount-1) * Rnd)+1)
    
38. 'KitTable.SelectRow randomrow
    
39. KitTable.SelectCell  randomrow, "企业名称"
    
40. strkitorgname = KitTable.GetCellProperty (randomrow, "企业名称","Value")
    
41. strkitorglicense = KitTable.GetCellProperty(randomrow, "许可证号", "Value")
    
42. mgbox.Popup "现在选择的是第" & randomrow & vbnewline &_
    
43.                       "企业名称："&"  "&strkitorgname&vbnewline &_
    
44.        "许可证号码："& "  "&strkitorglicense, 3, " ", 1
    
45. thewindow.SwfButton("加入我的监管对象").Click
    
46. '***************************************在中心厨房Tab中***************************************************
    
47. 
    
48. '************************************在我的监管对象Tab中************************************************
    
49. Set MyFav = SwfWindow("食品安全电子化监管系统－－城市运行区").SwfWindow("监管对象设置")._
    
50.                               SwfTable("swfname:=dgvOrganizationList","swfname
    
51. path:=dgvOrganizationList;organizationSearchControl0;pnlMyFavourate;OrganizationDialog")
    
52. thewindow.SwfRadioButton("regexpwndtitle:= 我的监管对象","swfname path:= rdoFavorite;panel1;OrganizationDialog"). Set
    
53. GeneralAddedCheck MyFav,strkitorgname,strkitorglicense
    
54. thewindow.close
    
55. SwfWindow("食品安全电子化监管系统－－城市运行区").Activate
    
56. SwfWindow("食品安全电子化监管系统－－城市运行区").SwfWindow("日常监管子系统").Activate
    
57. Next  ' For i = 0 to yearslistcount -1 结束
    
58. Function GeneralAddedCheck(tableobj,orgname,orglicense)
    
59.    Set dictable = CreateObject ("Scripting.Dictionary")
    
60.    Dim tablearray(1,0)
    
61.    Dim genstrkey, gengetname, gengetlicense,rownum,getrowdata
    
62.    Dim boolcheck
    
63.    boolcheck = false
    
64.    rownum = tableobj.RowCount
    
65.    
    
66.    For i = 0 to rownum -1
    
67.      gengetname = tableobj.GetCellProperty (i,"企业名称", "Value")
    
68.   gengetlicense = tableobj.GetCellProperty (i, "许可证号","Value")
    
69.   tablearray (0,0) = gengetname
    
70.   tablearray (1,0) = gengetlicense
    
71.   genstrkey = tablearray (1,0)
    
72.   dictable.Add genstrkey, tablearray
    
73.   getrowdata = dictable.Item(genstrkey)
    
74.      mgbox.Popup "当前选中的是第"& i &"行"&vbnewline&_
    
75.                         "企业名："& getrowdata(0,0)& vbnewline &_
    
76.          "许可证号：" & getrowdata(1,0) & vbnewline, 5, "当前数据", 1
    
77.      
    
78.   If orgname = getrowdata(0,0) and orglicense = getrowdata(1,0) Then
    
79.    mgbox.Popup "被添加的数据如下" & vbnewline &_
    
80.                          "企业名：" & "   " & getrowdata(0,0) & vbnewline &_
    
81.           "许可证号：" & "   " & getrowdata(1,0), 5, "一般化的SearchData方法
    
82. ", 1
    
83.   Reporter.ReportEvent micPass, "一般化的SearchData方法_添加到我的监管对象", "成功！！！！"
    
84.   boolcheck = true
    
85.   End If
    
86.   If i = rownum -1 and boolcheck = false Then
    
87.    mgbox.Pop "失败", 3, " ",1
    
88.    Reporter.ReportEvent micPass, "一般化的SearchData方法_添加到我的监管对象", "失败囧囧囧囧"
    
89.   End If
    
90.    Next   
    
91. End Function
    
92. '************************************在我的监管对象Tab中************************************************
    

复制代码

TIB

你可能需要用到 DataTable.SetNextRow

具体请查看QTP帮助文档中DataTable对象的使用方法

monalisali

奥！？ 谢谢奥，去研究下看看

monalisali

经过研究，其实只要把54-56行直接注释掉就可以循环了，呵呵，是我自己的一时疏忽。
和SetNextRow没有关系，不过还是要感谢TIB同学的回复，^_^。