好奇怪的问题，大家帮忙看哈这段代码

hehekouke · 发表于 2008-3-12 15:20:23

这是第一个action：CheckLogin
代码如下：
*********************************************************************************************************
Dim countNum
countNum=DataTable.GetSheet(dtLocalSheet).GetRowCount

For i=1 To countNum
Dim user,pw
user=DataTable("userName", dtLocalSheet)
pw=DataTable("password", dtLocalSheet)
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set user
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure pw
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 11,8

If Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Link("SIGN-OFF").Exist Then
Reporter.ReportEvent micDone, "登录成功", "用户名和密码输入正确"
Else
Reporter.ReportEvent micDone," 登录失败"," 用户名或密码输入错误"
End If

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Link("Home").Click
DataTable.GetSheet("CheckLogin").SetNextRow
Next
*************************************************************************************************
我在datatable中写了4组登录名和密码，
这段代码能够分别使用这4组登录名和密码进行登录；

如果我把其中的登录部分抽出来写成一个action：Login
代码如下：
*****************************************************************************************
Dim user,password
user=Parameter("userName")
password= Parameter("password")

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set user
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure password
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 11,8

If Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Link("SIGN-OFF").Exist Then
Reporter.ReportEvent micDone, "登录成功", "用户名和密码输入正确"
Else
Reporter.ReportEvent micDone," 登录失败"," 用户名或密码输入错误"
End If
*******************************************************************************************************
然后在第一个action中调用它，代码如下：
***********************************************************************************************************
Dim countNum
countNum=DataTable.GetSheet(dtLocalSheet).GetRowCount

For i=1 To countNum
Dim user,pw
user=DataTable("userName", dtLocalSheet)
pw=DataTable("password", dtLocalSheet)

RunAction "Loign [Login]", oneIteration,user,pw

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Link("Home").Click
DataTable.GetSheet("CheckLogin").SetNextRow
Next
************************************************************************************************************
同样在CheckLogin这个方法的datatable中写了4组登录名和密码，
这段代码也能使用4组登录名进行登录，但是后面的两组使用的是第二组的登录名和密码，
而第三组和第四组都没有使用到。

把RunAction "Loign [Login]", oneIteration,user,pw 注释掉，CheckLogin是能够取到这四组用户名的，
实在不知道怎么办了
大家帮哈忙好不？

谢谢啦*8

[ 本帖最后由 hehekouke 于 2008-3-12 15:38 编辑 ]