我学着做了一个库房管理系统 遇到了一个麻烦 是错误13 数据类型不匹配 具体如下:
Dim curDb As Database
Dim curRs As Recordset
Dim devicecnt As Integer
Dim sumprice As Currency
Dim sum As Currency
Dim curav As Currency
Dim strSQL As String
Dim str1 As Long
Dim av As Currency
Set curRs = curDb.OpenRecordset(strSQL)
Set curRs = curDb.OpenRecordset("select * from device where (device.设备号 = str1 )")
我想请教一下如何解决