51Testing软件测试论坛

标题: select case [打印本页]

作者: xp20683 时间: 2006-12-27 20:40
标题: select case
Select Case istatus
   Case "新建"
   s(0)=s(0)+1
   Case "打回"
   s(1)=s(1)+1
   Case "公认"
   s(2)=s(2)+1
   Case "已确定"
   s(3)=s(3)+1
   Case "已分派"
   s(4)=s(4)+1
   Case "已解决"
   s(5)=s(5)+1
   Case "已关闭"
      s(6)=s(6)+1
End Select
为什么老出现语法错误,而将没s(i)=s(i)+1每一行都想前移后就对了, Case 语句有什么规定吗?

作者: 风过无息 时间: 2006-12-28 08:57
不知道你出现什么语法错误，我在我机器上调试是可以的：
istatus="公认"
Dim s(7)
Select Case istatus
      Case "新建"
               s(0)=s(0)+1
      Case "打回"
               s(1)=s(1)+1
   Case "公认"
               s(2)=s(2)+1
      Case "已确定"
               s(3)=s(3)+1
      Case "已分派"
               s(4)=s(4)+1
   Case "已解决"
               s(5)=s(5)+1
      Case "已关闭"
         s(6)=s(6)+1
      End Select

作者: ccc11yyy 时间: 2006-12-28 09:13
把楼主的代码拷过来运行，没有报错啊
应该不是Case语句有什么规定，检查一下其它的地方，或者把QTP关了再重打开试试。

作者: walker1020 时间: 2006-12-28 12:47
楼主说的 “出现语法错误”，QTP 检查出是哪一行代码出现了语法错误？根据提示信息去修改呀

作者: xp20683 时间: 2006-12-29 10:52
代码好象没错,是前面的空格有问题,我将他们想前移后就可以了,不知道什么原因

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