UFT 操作问题

Question

我正在尝试参数化操作，下面是我设计的代码

Datatable.ImportSheet "Q:\Excel.xls","Sheet1","Action1"
a=datatable.GetSheet("Action1").GetRowCount
For i= 1 to a 
Datatable.GetShee("Action1").SetCurrentRow(i)
If datatable.Value("OracleDatabase","Action1")<>"" Then
    RunAction Datatable.Value("Scriptname","Action1"), oneIteration,"Oracle"
    msgbox  Datatable.Value("Scriptname","Action1")
End If 
If datatable.Value("SQLdatabase","Action1")<>"" Then 
    RunAction Datatable.Value("Scriptname","Action1"), oneIteration 
    msgbox Datatable.Value("Scriptname","Action1") 
End If 
RunAction "Action1 [MediumSanityWF12]", oneIteration 
Next

这里的问题是，当我运行上面的代码时，第一次迭代“Action1 [GUITest1]”正在执行并且它是正确的。 在第二次迭代中，对于 oracle 数据库，执行“Action1 [GUITest2]”脚本，对于 SQL 数据库，再次执行“Action1 [GUITest1]”。据我了解，它应该仅在我使用数据表的 setcurrentrow 方法时执行“Action1 [GUITest2]”操作。 我在这里有点困惑，为什么它在第二次迭代中为 SQL 数据库执行“Action1”而不是“Action2”？

请说明清楚。

Answer 1

我希望这应该工作

Datatable.ImportSheet "Q:\Excel.xls","Sheet1","Action1"
a=datatable.GetSheet("Action1").GetRowCount
For i= 1 to a 
Datatable.GetSheet("Action1").SetCurrentRow(i)
If datatable.Value("OracleDatabase","Action1")<>"" Then
    RunAction Datatable.Value("Scriptname","Action1"), oneIteration,"Oracle"

End If 
Datatable.GetSheet("Action1").SetCurrentRow(i)
If datatable.Value("SQLdatabase","Action1")<>"" Then 
    RunAction Datatable.Value("Scriptname","Action1"), oneIteration 

End If 
RunAction "Action1 [MediumSanityWF12]", oneIteration 
Next