qtp自动化测试-条件语句 if select case

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