如何判断全部循环的结果 >0

[shhwymw]

for i = 0 to ubound(split(sl,","))
set rs = server.createObject("adodb.recordset")
rs.open "select * from ck where id=" & id(i),conn,1,3
If not rs.eof then
sl =rs("sl") - (sl(i))
end If
rs.Close
Set rs = Nothing
Next

一个循环，计算"sl"的值，想判断当循环中所有"sl"都大于零时再进行下一步的动作，否则返回一个错误。

[slwsss]

计算"sl"的时候并判断如果小于0做个标记

[csdn_aspnet]

循环前把数组长度赋值给变量 每次循环设置标识+1 最后判断是否相等 不相等就是有执行没成功

[shhwymw]

引用 2 楼 hefeng_aspnet 的回复:

循环前把数组长度赋值给变量 每次循环设置标识+1 最后判断是否相等 不相等就是有执行没成功

能在我的代码上修改下吗，不是清楚怎么写，谢谢。

[shhwymw]

引用 1 楼 slwsss 的回复:

计算"sl"的时候并判断如果小于0做个标记

能在我的代码上修改下吗，不是清楚怎么写，谢谢。

[Dogfish]

boolAllPositive = true
for i = 0 to ubound(split(sl,","))
   set rs = server.createObject("adodb.recordset")
   rs.open "select *  from ck where id=" & id(i),conn,1,3
   If not rs.eof  then
      sl =rs("sl") - (sl(i))
      if sI <=0 then
         boolAllPositive = false ‘这里不知道你是否包括不存在
      end if    
   end If
   rs.Close
   Set rs = Nothing
Next

if boolAllPositive then
   '所有的数是正数
else
   '不是所有的数是正数   
end if

[xcgh]

if sI <=0 then boolAllPositive = false ‘这里不知道你是否包括不存在 end if 在end if前加个break会更好些