1 if 语句
if condition then
end if
If condition Then [statements]
[ElseIf condition-n Then [elseifstatements]] . . .
[Else [elsestatements]]
End If
Dim timeSpan
timeSpan=1
If timeSpan=1 Then
Window("选择要清算的条件").WinObject("按以下时间段").Click
Else
Window("选择要清算的条件").WinObject("全部未清算的记录").Click
End If
If Window("销售单再现").Exist(3) Then
Window("销售单再现").WinObject("TRzToolbar").Click 132,22
ElseIf Window("销退单再现").Exist(3) Then
Window("销退单再现").Close
End If
2 select case
Select Case testexpression [Case expressionlist-n [statements-n]] . . . [Case Else expressionlist-n [elsestatements-n]]End Select
在比较前,使用ICase函数将字符串转换成小写,使用uCase函数将字符串转换成大写
'========================================
'名称:get_ColumnNum
'作用:获取菜单序号
'参数:菜单名称
'返回值:菜单序号--17 15
'调用:msgbox get_ColumnNum("基础信息")
'========================================
Function get_ColumnNum(menuName)
Select Case menuName
Case "基础信息" "17"
End Select
End Function