51Testing软件测试论坛

标题: EXCEL输出数据类型不匹配 [打印本页]

作者: liangtest 时间: 2008-4-8 15:00
标题: EXCEL输出数据类型不匹配
Dim Business(1),Card(1),Money(1),Webmima(1),Order(1)
Dim j,rowCount
datatable.Import "D:\QTP\data.xls"
rowCount=datatable.GetSheet("Global").GetRowCount
'msgbox rowCount
For j=0 to rowCount
   Business(j)=datatable.RawValue("Business","Global")
   Card(j)=datatable.RawValue("Card","Global")
                     Money(j)=datatable.RawValue("Money","Global")
   Webmima(j)=datatable.RawValue("Webmima","Global")
   Order(j)=datatable.RawValue("Order","Global")
Next
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("forumMenuTree").Image("plusbottom").Click
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("forumMenuTree").Image("plus").Click
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("forumMenuTree").Link("接口操作平台").Click
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox1").Set Business
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox2").Set "4001"
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox3").Set Card
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox4").Set Money
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox8").Set "2010-10-10"
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("Textbox16").Set Webmima
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox12").Set Order
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebButton("授权").Click
运行到Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox1").Set Business时，显示
类型不匹配: 'Browser(...).Page(...).Frame(...).WebEdit(...).Set Business'，可是我的excel中没有什么问题啊，搞了半天了，郁闷，希望有人帮我解答一下，

作者: hsjzfling 时间: 2008-4-8 15:16
1、看看你的逻辑，似乎是想循环执行授权。。。如果是这样，你需要把next挪到这段代码的尾部
2、看看报错的原因，很简单，Business你定义的是数组，当然不能直接去Set。
照你的逻辑，你似乎是该写成Business(j)。

PS：非必要情况还是优先考虑datatable的value属性而非rawvalue

作者: liangtest 时间: 2008-4-8 15:36
标题: 回复 2# 的帖子

谢谢了
我修改了一个脚本把business改为business（j）就行了，business如果是在SUB函数中可以用

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)