请教：如何使用case语句

urral

JavaWindow("System User Management").JavaDialog("Create New User").JavaEdit("Account").Set DataTable("account", dtGlobalSheet)

上面account是被参数化了的。我想实现当account取第一个参数时执行如下语句：
JavaWindow("System User Management").JavaDialog("Create New User").JavaList("JList").Select "Administrator"
取第二个参数时执行：
JavaWindow("System User Management").JavaDialog("Create New User").JavaList("JList").Select "operator"

用case语句应该怎么写呢？

wanghaijun

Dim currentRow
currentRow = DataTable.GetCurrentRow
Select Case currentRow
Case 1
    JavaWindow("System User Management").JavaDialog("Create New User").JavaList("JList").Select "Administrator"
Case 2
    JavaWindow("System User Management").JavaDialog("Create New User").JavaList("JList").Select "operator"
End Select

urral

但没有和account的 DataTable联系起来啊？

xiaonan

dim user
select case user
case "Administrator"  JavaWindow("System User Management").JavaDialog("Create New User").JavaList("JList").Select "Administrator"
case "operator"  JavaWindow("System User Management").JavaDialog("Create New User").JavaList("JList").Select "operator"
end selelct