|
7#
楼主 |
发表于 2007-8-21 14:48:09
|
只看该作者
大家都很好呀,
两个页面的输入数据都放在Local DataTable里面后运行,运行结果是:
只有第一行的数据都被访问到。
其中的进行参数化的代码是
Browser("Login Page").Page("Page_4").WebButton("Create").Click
Browser("Login Page").Page("Page_5").WebEdit("#form.name").Set DataTable("LProductInfo",dtLocalSheet)
Browser("Login Page").Page("Page_5").WebEdit("#form.productNo").Set DataTable("LProductInfo",dtLocalSheet)
Browser("Login Page").Page("Page_5").WebEdit("#form.spec").Set DataTable("LProductInfo",dtLocalSheet)
Browser("Login Page").Page("Page_5").WebEdit("#form.unit").Set DataTable("LProductInfo",dtLocalSheet)
Browser("Login Page").Page("Page_5").WebButton("Save").Click
后来修改了代码,终于达到了了我的目的: 一次登陆,读取到Local DataTable里的每个数据,
然后退出。
下面是读取第一列的数据的代码 :
Dim i
i = 1
While i<= 3
currentValue = DataTable.GetSheet("Action1").GetParameter("LProductInfo").ValueByRow(i)
Browser("Login Page").Page("Page_4").WebButton("Create").Click
Browser("Login Page").Page("Page_5").WebEdit("#form.name").Set DataTable("LProductInfo",dtLocalSheet)
Browser("Login Page").Page("Page_5").WebEdit("#form.productNo").Set DataTable("LProductInfo",dtLocalSheet)
Browser("Login Page").Page("Page_5").WebEdit("#form.spec").Set DataTable("LProductInfo",dtLocalSheet)
Browser("Login Page").Page("Page_5").WebEdit("#form.unit").Set DataTable("LProductInfo",dtLocalSheet)
Browser("Login Page").Page("Page_5").WebButton("Save").Click
i = i +1
Wend
读取第2列的数据的代码也可以如此修改,只是不用忘记 写 i = 1 进行初始化 i 的值,因为运行上面的代码后
i 的值 是 3了。 |
|