51Testing软件测试论坛

标题: 如何使脚本化的Datatable循环 [打印本页]
作者: monalisali    时间: 2010-9-21 11:14
标题: 如何使脚本化的Datatable循环
本帖最后由 monalisali 于 2010-9-21 11:23 编辑

大家好：
我在编写一段关于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

  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中***************************************************

  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    时间: 2010-9-21 11:26
你可能需要用到 DataTable.SetNextRow

具体请查看QTP帮助文档中DataTable对象的使用方法
作者: monalisali    时间: 2010-9-21 12:03
奥！？ 谢谢奥，去研究下看看
作者: monalisali    时间: 2010-9-21 15:11
经过研究，其实只要把54-56行直接注释掉就可以循环了，呵呵，是我自己的一时疏忽。
和SetNextRow没有关系，不过还是要感谢TIB同学的回复，^_^。



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2