dim tempstr
tempstr = -1

for i=1 to rdcount

if rs("type_id") <> tempstr then
tempstr = rs("type_id")
往下继续

现在这段是判断下一个要输出的type_id是否和上一个相同，如果相同则跳过，如果不同则输出

前辈能不能给改一下，达到这样的目的，就是如果type_id 之前已经输出过了，就不在输出，跳过，而没输出的话，就继续

没人能解决么？

dim tempstr
tempstr = -1

for i=1 to rdcount

if tempstr=-1 then
tempstr = rs("type_id")
'继续
else
'跳过，有必要的话可以使用exit for跳出循环
end
’...........

比如我现在这个字段里有aa，bb，cc，......
现在按顺序输出aa,bb，cc，......，gg，这时如果又遇到一个bb，则跳过，继续
这样能做到么？

问题已解决，谢谢～大家