日期:2014-05-17  浏览次数:23582 次

看看这段代码的逻辑错在哪?
VB code


for i=0 to ubound(ucontArr)
if instr(urs("pWorkGoods"),ucontArr(i))>0 then
if strID="" then 
strID=urs("pWorkID")
else
strID=strID&","&urs("pWorkID")  '这句有错误吗?
end if
exit for
end if
next




------解决方案--------------------
看上去沒什麼錯
strID = "" 初始化一下
urs("pWorkID") 的数据是Null?
strID = strID & "," & Trim(urs("pWorkID").Value)
------解决方案--------------------
把类型转一下,试试。

strID = strID & "," & CStr(urs("pWorkID"))
------解决方案--------------------
提示什么错误
------解决方案--------------------
&与U字符要分开,否则会被认为是16进制码进行解析,那样你的语法就出错了

所以
VBScript code
strID=""
for i=0 to ubound(ucontArr)
if instr(urs("pWorkGoods"),ucontArr(i))>0 then
if strID="" then 
strID=urs("pWorkID")
else
strID=strID & "," & urs("pWorkID")  '这句有错误吗?
end if
exit for
end if
next