为什么总类型不匹配？这是什么毛病？其他地方可以！

输出的prdidstr="100-badminton-2-2,100-badminton-1-1 "

运行的时候老提示

prds(i)=split(prds(i),"-")

类型不匹配: 'prds(...)'

大家帮我看看吧，其他地方也有类似的拆分方法啊，为什么不提示
头都想破了，谢谢了！

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