rs.open sql,conn,1,1avpci = rs("pci_av")
pci = Cint(avpci) --转一下
if pci>0 then <---Microsoft VBScript 运行时错误 (0x800A000D)类型不匹配
'statement
end if
pci = Cint(avpci) --转一下
if pci>0 then <---Microsoft VBScript 运行时错误 (0x800A000D)类型不匹配
'statement
end if
cint(avpci)出来的结果,会出现未知错误,代码号不记得了
虽然现在不知道怎么又能用了,但是问题解决了就好,呵呵