看看这段代码的逻辑错在哪？

VB code

for i=0 to ubound(ucontArr)if instr(urs("pWorkGoods"),ucontArr(i))>0 thenif strID="" then strID=urs("pWorkID")elsestrID=strID&","&urs("pWorkID")  '这句有错误吗？end ifexit forend ifnext

[解决办法]
看上去什
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 thenif strID="" then strID=urs("pWorkID")elsestrID=strID & "," & urs("pWorkID")  '这句有错误吗？end ifexit forend ifnext