Aciton之间如何调用

小丫头amy · 发表于 2012-12-20 14:10:58

我用qtp自动的flight录制了两个脚本，第一个脚本是登录的脚本，第二个脚本是订票的脚本。
然后我在订票的脚本中头部加人
RunAction "Copy of Action1", allIterations
为什么这样子调用的时候，只要运行脚本1 datatable中的第一行数据。
脚本1的代码如下：
Dim loginwin
Set loginwin=description.Create()
loginwin("MicClass").value="Dialog"
Set childs=desktop.ChildObjects(loginwin)
For i=0 to childs.count-1
  childs(i).close
Next
Dim expt,errorinfo
expt=DataTable("expt",dtGlobalSheet)
SystemUtil.run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtGlobalSheet)
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").SetSecure DataTable("psd", dtGlobalSheet)
Dialog("Login").WinButton("OK").Click
If Dialog("Login").Dialog("Flight Reservations").Exist Then
errorinfo=Dialog("Login").Dialog("Flight Reservations").Static("Please enter password").GetROProperty("text")
msgbox errorinfo
msgbox expt
If  errorinfo=expt  Then
Reporter.ReportEvent micPass,"登录系统验证","passed"
  else
Reporter.ReportEvent micFail,"登录系统验证","failed"
   Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
End If

else
If Window("Flight Reservation").Exist Then
Reporter.ReportEvent micPass,"登录成功","passed"
End If
End If
datatable中的值为如图