这段脚本有错么？

S小虾米

各位战友帮助看看哈，下面的脚本哪儿不对哈？现在print(Error1)出来的结果直接是未比较前的Error1的结果
Dim a
a = Array(0.04,0.04,0.04,0.03,0.03,0.015,0.015,0.01,0.01)
For i = 0 To 8 step 1
     Error1 = obj.GetSubItem(i*3,0)
     No1 = obj.GetSubItem(i*3+2,3)
                 If No1 > a（i)  Then
                         print(Error1)
                 End If
Next

S小虾米

Error1分别为-1，2，-2，3，-3......
No1的值分别为0.004，0.025，0.036.......
想让No1分别和a(i)作比较后，返回不符合的Error1的值

S小虾米

自己在顶下，不知道哪儿不对了，战友们帮帮忙

lantianwei

对No1 进行下数据转换 估计数据类型不一致

k4124k

首先：a（i) 中i的左括号与右括号 不一样哦~~~
其次：你的obj对象没有声明
然后：你的GetSubItem函数是哪里来的。。。起码你帖的东西里看不到~~

[ 本帖最后由 k4124k 于 2010-4-1 15:34 编辑 ]

S小虾米

哦，括号是刚刚输进来的时候打错了。然后obj在前面定义了，没有贴出来：（

S小虾米

谢谢4楼的版主哈，我去试下：）

lantianwei

Try
If CDbl(No1) > a(i)  Then

shotstar

不太清楚LZ的那个方法的作用是干什么，只通过命名知道估计去获取数组里的元素的，不过不清楚你那2个参数的含义。
如果可以请发一下GetSubItem的代码，谢谢。

S小虾米

原帖由 lantianwei 于 2010-4-1 16:00 发表
Try
If CDbl(No1) > a(i)  Then

好了，就是数据类型的原因，谢谢版主
谢谢各位战友了：）