ROBOT数据池问题求助

lpbenben

我刚录制完脚本加入了数据池，点击回放和编译无任何反应。那位帮我看一下
'$Include"sqautil.sbh"

Sub Main
    Dim Result As Integer
    dim groupname as string
    dim cycnumber as Integer
     

    'Initially Recorded: 2007-11-16  13:33:10
    'Script Name: group
   
  groupdp = SQADataPoolOpen("zuname")
  for cycnumber = 1 to 15
  
  call SQADataPoolFetch(groupdp)
  call SQADataPoolValue(groupdp,1,groupname)
   
    Window SetContext, "Caption=Central", ""
    ListView Click, "ObjectIndex=1", "Coords=218,38"
    Toolbar Left_Drag, "ObjectIndex=1;\;ItemID=32798", "Coords=25,26,22,26"
   
    Window SetContext, "Caption=添加组", ""
    InputKeys groupname
    PushButton Click, "Text=确定"
   
    Window SetContext, "Caption=Central", ""
    TreeView Click, "ObjectIndex=1", "Coords=85,143"
    TreeView Click, "ObjectIndex=1;\;ItemText=所有组->"groupname, "Location=Icon"
    Toolbar Click, "ObjectIndex=1;\;ItemID=32799", "Coords=32,5"
   
    Window SetContext, "Caption=添加终端", ""
    InputKeys groupname
    EditBox Click, "ObjectIndex=2", "Coords=26,7"
    InputKeys groupname
    EditBox Click, "ObjectIndex=3", "Coords=26,8"
    InputKeys groupname
    EditBox Click, "ObjectIndex=4", "Coords=32,4"
    InputKeys groupname
    ComboBox Click, "ObjectIndex=1", "Coords=77,12"
    ComboListBox Click, "ObjectIndex=1", "Text=groupname"
    PushButton Click, "Text=确定"
   
    Window SetContext, "Caption=Central", ""
    ListView Click, "ObjectIndex=1", "Coords=254,272"
    ListView Click, "ObjectIndex=1", "Coords=58,120"
   
   next groupname
  call SQADataPoolClose(groupdp)
  

End Sub