|
2#
楼主 |
发表于 2006-11-30 17:21:46
|
只看该作者
完成了.不知道这样写对不对呢??
取得数据库的记录数,用WHILE,然后,用IF语句判断rowcount值是否为0,是的话,就停止运行.
欢迎大家指正.谢谢!!
Dim rowcount
rowcount = DataTable.GetSheet("Global").GetRowCount
msgbox "the rowcount is " &rowcount
Browser("Browser").Page("****").WebEdit("loginForm:txtUserName").Set "linmh"
Browser("Browser").Page("****").WebEdit("loginForm:txtPassword").SetSecure "456e64e3af0977ff8a06cf532a0699c4ebc98b47"
Browser("Browser").Page("****").WebButton("ddd").Click
While rowcount>0
RunAction "Copy of Action1_2", oneIteration '调用action2的操作,
rowcount=rowcount-1
If rowcount=0 Then
' msgbox "the rowcount is : " & rowcount '提示框显示有记录数
ExitRun(0)
End If
Wend |
|