7,714
社区成员
发帖
与我相关
我的任务
分享
For i = 0 to UBound(orderlist)
Set rs2=server.createobject("adodb.recordset")
sql2 = "Select * from download where [下载ID] ='"&orderlist(i)&"'"
rs2.open sql2,conn,1,3
if not(rs2.eof and rs2.bof) then
str=str&"T"
else
str=str&"F"
end if
rs2.close
set rs2 = nothing
Next
if instr(str,"F") then
rs("stat")="等待发货"
else
rs("stat")="订单完成"
end if
rs.update
rs.close
set rs = nothing
select count(*)
from (select distinct Downid from yourTable where Downid in (1,2,3))
if count(*)=3 then OK