28,390
社区成员
发帖
与我相关
我的任务
分享
prds(i)=split(prds(i),"-")
IF prdIDStr<>"" Then
Response.Write prdidstr
prds=split(prdIDStr,",")
prdIDStr=""
UB=Ubound(prds)
For i=0 to UB
Falg=True
prds(i)=split(prds(i),"-")'这里老提示出错,不知道为什么!!其他地方调用没有错啊!
For j=i+1 to UB
prds(j)=split(prds(j),"-")
Falg=True
IF prds(i)(0)&prds(i)(1)&prds(i)(2)=prds(j)(0)&prds(j)(1)&prds(j)(2) Then
Falg=False
Exit For
End IF
Next
IF Falg Then
IF prdIDStr<>"" Then prdIDStr=prdIDStr&","
prdIDStr=prdIDStr&prds(i)(0)&"-"&prds(i)(1)&"-"&prds(i)(2)&"-"&prds(i)(3)
End IF
Next
End IF