Set adoConn=CreateObject("Adodb.Connection") '连接数据库(数据指向是金字塔安装目录下的 test.mdb,也可以自己更改想要的路径)
adoConn.Open"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\投资\gdhs.accdb"
trSqlread="select * from gdlb where stockcode='" & strcode &"'"
set rstTmp = adoConn.Execute(trSqlread)
arr = rstTmp.GetRows
For i = 0 To UBound(arr)
if isnull(arr(i,0)) then
arr1(i)="1"
msgbox "1"
else
arr1(i)=arr(i,0)
MsgBox arr(i,0)
end if
Next
运行到arr1(i), 提示编译器错误 ‘13’ 类型不匹配,不是说在FUNCTION里变量不需要申明吗? 这是什么原因。谢谢.
不需要申明变量<>不需要申明数组,你的arr1是数组,不申明怎么电脑怎么分配数组空间啊。
[此贴子已经被作者于2015/3/3 15:50:54编辑过]