QTP中if..then函数问题

diandian

在测试脚本中我要写一个if...then函数，如何写？
如果password等于数字型就执行，不等于数字型而等于字符型就报错。这个脚本怎么写啊？
肯定各位朋友指教！谢谢！
If workextension<>int Then
Browser("Browser").Dialog("Microsoft Internet Explorer").Static("Please Enter Numeric Value.").Output CheckPoint("Please Enter Numeric Value.")
Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("OK").Click
else
Browser("Browser").Page("Page").Frame("main_2").Link("Basic Profile").Click
Browser("Browser").Page("Page").Sync
End If

Zee

学习中。

lovedemon

跟一下贴

diandian

可以了！真是谢谢了！今天的任务可以完成了！
太感谢了！希望大家多多指教！

sbandbt

用输出值把各项输出到表中，再取出来进行比较就行，用DataTable()进行取值就可以了

diandian

我是过了还是不行，if语句没法实现！
还有一点：我要写
if name="diandian" and password="12345" then
~~~进入另一个界面操作~~~
else
~~~出现错误对话框~~~
endif
这样写有问题吗？这样写if功能实现不了，即使输入正确的name和password也不能进入另一个界面！
这是为什么呢？

kai_top

这属于数据类型判断问题,你可以从以下得到启示:

1. 
   
2.     password1= "diandian"
   
3.     password2=12345678   
   
4.     A = VarType(password1)
   
5.     B = VarType(password2)   
   
6.     'result
   
7.     A = 8
   
8.     B = 2     
   
9. vbNull  1  虚值  
   
10. vbInteger  2  整数  
    
11. vbLong  3  长整数  
    
12. vbSingle  4  单精数  
    
13. vbDouble  5  双精数  
    
14. vbCurrency  6  币值  
    
15. vbDate  7  日期  
    
16. vbString  8  字串  
    
17. vbObject  9  对象  
    
18. vbError  10  错误值(Error Value)  
    
19. vbBoolean  11  布林代数  
    
20. vbVariant  12  Variant (used only with arrays of variants)  
    
21. vbDataObject  13  存取对象资料  
    
22. vbDecimal  14  十进数  
    
23. vbByte  17  位元组  
    
24. vbArray  8192  阵列
    

复制代码

海龙

If password<>int Then

应该为If IsNumeric(password) Then

不知道的语句查帮助，语句不是随便写的

diandian

If password<>int Then
Browser("Browser").Dialog("Microsoft Internet Explorer").Static("Please Enter Numeric Value.").Output CheckPoint("Please Enter Numeric Value.")
Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("OK").Click
else
Browser("Browser").Page("Page").Frame("main_2").Link("Basic Profile").Click
Browser("Browser").Page("Page").Sync
End If
我想int代表字符型所以就这样写了，结果有错误！
if password.....then 不是 if workextension...then