书到用时方恨少

QTP之DataTable使用--循环

上一篇 / 下一篇 2009-10-17 17:00:47 / 个人分类：QTP

1: 设置file-settings-test settings-run-run one iteration only

Dim i ,j

j = DataTable.GetRowCount
For i=1 to j
     Browser("Browser").Page("日志 - XXX").Link("写新日志").Click
        Browser("Browser").Page("写日志 - XXX").WebEdit("title").Set DataTable("title", dtGlobalSheet)
        Window("Windows Internet Explorer").Activate
        Window("Windows Internet Explorer").WinObject("Internet Explorer_Server").Click 515,332
        Window("Windows Internet Explorer").WinObject("Internet Explorer_Server").Type DataTable("content", dtGlobalSheet)
        Window("Windows Internet Explorer").WinObject("Internet Explorer_Server").Type micReturn
        Window("Windows Internet Explorer").WinObject("Internet Explorer_Server").Click 466,243
        Window("Windows Internet Explorer").WinObject("Internet Explorer_Server").Type DataTable("content2", dtGlobalSheet)
        Browser("Browser").Page("写日志 - XXX").WebButton("发表").Click
       Datatable.GetSheet("Global").setnextrow
Next