qtp运行脚本错误

liudong6664

Browser("Heimdall DLP数据泄漏防护系统 V2.2").Page("Heimdall DLP数据泄漏防护系统 V2.2").Frame("OperateArea").WebEdit("loginName").Set "admin"
Browser("Heimdall DLP数据泄漏防护系统 V2.2").Page("Heimdall DLP数据泄漏防护系统 V2.2").Frame("OperateArea").WebEdit("password").SetSecure "4d1c36f1d74364346d247db14a0b30b68a7cd48b6fe2"
Browser("Heimdall DLP数据泄漏防护系统 V2.2").Page("Heimdall DLP数据泄漏防护系统 V2.2").Frame("OperateArea").WebButton("提交").Click
Browser("Heimdall DLP数据泄漏防护系统 V2.2").Page("Heimdall DLP数据泄漏防护系统 V2.2_2").Frame("main").Link("部门管理").Click

Dim bm
          bm=DataTable.GetCurrentRow
                  For i=bm to DataTable.GetRowCount
              DataTable.setCurrentRow(i)
Browser("Heimdall DLP数据泄漏防护系统 V2.2").Page("Heimdall DLP数据泄漏防护系统 V2.2_2").Frame("subContent").WebElement("hongan").Click
Browser("Heimdall DLP数据泄漏防护系统 V2.2").Page("Heimdall DLP数据泄漏防护系统 V2.2_2").Frame("subContent").WebButton("增加新部门").Click
Browser("Heimdall DLP数据泄漏防护系统 V2.2").Page("Heimdall DLP数据泄漏防护系统 V2.2_2").Frame("subContent").WebEdit("WebEdit").Set DataTable("dpart", dtGlobalSheet)
Browser("Heimdall DLP数据泄漏防护系统 V2.2").Page("Heimdall DLP数据泄漏防护系统 V2.2_2").Frame("subContent").WebEdit("WebEdit_2").Drag 27,11
Browser("Heimdall DLP数据泄漏防护系统 V2.2").Page("Heimdall DLP数据泄漏防护系统 V2.2_2").Frame("subContent").WebEdit("WebEdit_2").Drop 27,11
Browser("Heimdall DLP数据泄漏防护系统 V2.2").Page("Heimdall DLP数据泄漏防护系统 V2.2_2").Frame("subContent").WebButton("保  存").Click
Browser("Heimdall DLP数据泄漏防护系统 V2.2").Dialog("Windows Internet Explorer").WinButton("确定").Click
                  Next

风过无息

楼主想实现什么功能？

开朗幽默

报的啥子错？

shingo0109

LZ指的错误是啥？

liujinkui

回复 1# liudong6664


    猜想楼主的问题是用DataTable参数化迭代问题
还请楼主说明遇到问题，这样大伙才知道怎么样帮你解决问题

lyscser

DataTable.GetSheet("你的Table名称").setCurrentRow(i)

wsn929

这是什么东西