fengxinzi0151 发表于 2011-8-17 13:45:39

qtp自带Flight系统计算总价时报错

根据随机生成的票数和票得单价，计算总价时，提示类型不匹配，知道肯定是数据类型定义的不对，可是搜索了好多资料，int，crrency型数据都调试过，始终没有调试成功，请大家帮忙
代码如下：
'"*******************随机生成票数*******************
dim Ticketcount,UnitP,Total ‘这里定义的肯定都是String型的数据
Ticketcount=randomnumber(0,10)
Window("Flight Reservation").WinEdit("Tickets:").Set Ticketcount
wait 2
'"*******************根据票数及单价计算总价格*******************
UnitP=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
Total=Ticketcount*UnitP ’2个字符型的数据肯定是没法完成数字运算的。
msgbox Total
Window("Flight Reservation").WinEdit("Tickets:").SetTOProperty "text",Total

wz403692767 发表于 2011-8-17 15:14:42

Total=CInt(Ticketcount)*CInt(Mid(UnitP,2))
因为取得的GetROProperty("text")带有＄，需要过滤掉

wz403692767 发表于 2011-8-17 15:17:10

而且randomnumber应该要写成这样吧RandomNumber

fengxinzi0151 发表于 2011-8-17 16:34:52

用你说的方法试了是对的，可是要输入Total这个值到数据表里的时候，会报错
UnitP=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
Window("Flight Reservation").WinEdit("Price:").Output CheckPoint("Price:")
Total=CInt(Ticketcount)*CInt(Mid(UnitP,2))
Window("Flight Reservation").WinEdit("Total:").SetTOProperty "text",Total
datatable("CountPrice",dtlocalsheet)=Window("Flight Reservation").WinEdit("Total:").GetROProperty("text")，麻烦再帮我分析分析看哈

rogerliu0303 发表于 2011-8-17 16:50:00

本帖最后由 rogerliu0303 于 2011-8-17 16:51 编辑

UnitP TicketCount要强制转换，Cint（UnitP）

rogerliu0303 发表于 2011-8-17 16:50:17

本帖最后由 rogerliu0303 于 2011-8-17 16:54 编辑

UnitP TicketCount要强制转换，Cint（UnitP）
你最后之所以回报错，还是数据类型不对。total最后被转为了int型，而SetTOProperty是要求参数为字符型，所以要再做一次数据类型强制转换，cstr（Total）

阳光下的橙子 发表于 2011-8-18 10:34:39

如果这是一个字符串的话，你做加法只会变成字符串拼接

记住，要做运算前一定要把参数做同类型数据转化的操作

写个简单的例子给你

Dim a,b,c
a = Inputbox ("请输入数字a")
b = Inputbox ("请输入数字b")
c = Cint(a)+Cint(b)
msgbox "a与b相加等于"&c

Cint就是一个转化函数，把变量转化为了int型数据
页: [1]
查看完整版本: qtp自带Flight系统计算总价时报错