从datatable进行循环添加用户

Dim i
Dim currow
currow = datatable.GetSheet("Action1").GetRowCount
For  i=1 to currow
window("Windows Internet Explorer").WinButton("添加").Click
window("Windows Internet Explorer").Dialog("添加用户").WinEdit("用 户 名").Set DataTable("usrname", dtLocalSheet)
window("Windows Internet Explorer").Dialog("添加用户").WinButton("确认").Click
window("Windows Internet Explorer").WinListView("用户配置").Select DataTable("delname", dtLocalSheet)
window("Windows Internet Explorer").WinButton("删除").Click
window("Windows Internet Explorer").Dialog("#32770").WinButton("确定").Click
datatable.GetSheet("Action1").SetNextRow
Next