关于参数设置无效问题

happy-sunny

我把三个变量，分别参数化后。

  执行的时候，就第一列依次再执行。第2，3列，一直都是在执行第一行。

  请指点下，谢谢了：）

风过无息

把你的脚本也贴出来吧.,最好有截图.

haoxiang

真怪，期待中。

happy-sunny

Browser("BOND EG").Page("BOND EG").Frame("right").WebEdit("user").Set "mso"
Browser("BOND EG").Page("BOND EG").Frame("right").WebEdit("password1").SetSecure "466f9cbfd8b87a630593208363d014cad1f2c0508301f93e6a049773"
Browser("BOND EG").Page("BOND EG").Frame("right").WebButton("Login").Click
Browser("BOND EG").Page("BOND EG_2").Frame("left").Link("System").Click
Browser("BOND EG").Page("BOND EG_2").Frame("content1").Link("Email").Click
Browser("BOND EG").Page("BOND EG_2").Frame("content1_2").WebEdit("to").Set DataTable("to", dtGlobalSheet)
Dim  error_to
If Browser("BOND EG").Dialog("Microsoft Internet Explorer").Exist then
error_to = Browser("BOND EG").Dialog("Microsoft Internet Explorer").GetVisibleText()
DataTable("to_result",dtGlobalSheet)=error_to
Browser("BOND EG").Dialog("Microsoft Internet Explorer").WinButton("確定").Click
end if
Browser("BOND EG").Page("BOND EG_2").Frame("content1_2").WebEdit("from").Set DataTable("from", dtGlobalSheet)
Dim  error_from
If Browser("BOND EG").Dialog("Microsoft Internet Explorer").Exist then
error_from = Browser("BOND EG").Dialog("Microsoft Internet Explorer").GetVisibleText()
DataTable("from_result",dtGlobalSheet)=error_from
Browser("BOND EG").Dialog("Microsoft Internet Explorer").WinButton("確定").Click
end if
Browser("BOND EG").Page("BOND EG_2").Frame("content1_2").WebEdit("server").Set DataTable("server", dtGlobalSheet)
Dim  error_server
If Browser("BOND EG").Dialog("Microsoft Internet Explorer").Exist then
error_server = Browser("BOND EG").Dialog("Microsoft Internet Explorer").GetVisibleText()
DataTable("server_result",dtGlobalSheet)=error_server
Browser("BOND EG").Dialog("Microsoft Internet Explorer").WinButton("確定").Click
end if

Browser("BOND EG").Dialog("Microsoft Internet Explorer").DataTable.Export ("C:\mail01.xls")
Browser("BOND EG").Page("BOND EG_2").Frame("content1_2").WebButton("OK").Click
If Browser("BOND EG").Dialog("Microsoft Internet Explorer").Exist then
Browser("BOND EG").Dialog("Microsoft Internet Explorer").WinButton("確定").Click
end if





图中，最行一行才是正确的设定值。第2行，第三行每个框都该有弹出框。结果没有。2，3列都是执行的，第一行的内容。

happy-sunny

觉得好奇怪

Browser("BOND EG").Page("BOND EG_2").Frame("content1_2").WebEdit("to").Set DataTable("to", dtGlobalSheet)

Browser("BOND EG").Page("BOND EG_2").Frame("content1_2").WebEdit("from").Set DataTable("from", dtGlobalSheet)

Browser("BOND EG").Page("BOND EG_2").Frame("content1_2").WebEdit("server").Set DataTable("server", dtGlobalSheet)

这样执行的时候就能执行每行的参数，当每个下面加了有弹出框就记录参数，并且点击确定，如下，就第二行执行的时候，2，3列仍是第一行的参数。请大家帮忙看下
Browser("BOND EG").Page("BOND EG_2").Frame("content1_2").WebEdit("to").Set DataTable("to", dtGlobalSheet)
Dim  error_to
If Browser("BOND EG").Dialog("Microsoft Internet Explorer").Exist then
error_to = Browser("BOND EG").Dialog("Microsoft Internet Explorer").GetVisibleText()
DataTable("to_result",dtGlobalSheet)=error_to
Browser("BOND EG").Dialog("Microsoft Internet Explorer").WinButton("確定").Click
end if

Browser("BOND EG").Page("BOND EG_2").Frame("content1_2").WebEdit("from").Set DataTable("from", dtGlobalSheet)
Dim  error_from
If Browser("BOND EG").Dialog("Microsoft Internet Explorer").Exist then
error_from = Browser("BOND EG").Dialog("Microsoft Internet Explorer").GetVisibleText()
DataTable("from_result",dtGlobalSheet)=error_from
Browser("BOND EG").Dialog("Microsoft Internet Explorer").WinButton("確定").Click
end if

Browser("BOND EG").Page("BOND EG_2").Frame("content1_2").WebEdit("server").Set DataTable("server", dtGlobalSheet)
Dim  error_server
If Browser("BOND EG").Dialog("Microsoft Internet Explorer").Exist then
error_server = Browser("BOND EG").Dialog("Microsoft Internet Explorer").GetVisibleText()
DataTable("server_result",dtGlobalSheet)=error_server
Browser("BOND EG").Dialog("Microsoft Internet Explorer").WinButton("確定").Click
end if