Question

VB难题参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突

adoRecordset.Fields.Append "序号", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Fields.Append "供应商", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Fields.Append "产品名称", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Fields.Append "型号", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Fields.Append "单位", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Fields.Append "入库日期", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Fields.Append "入库数量", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Fields.Append "单价", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Fields.Append "盘点日期", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Fields.Append "当前库存", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Fields.Append "备注", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
adoRecordset.Open
For i = 3 To 10
' adoRecordset.AddNew Array("序号", "供应商", "产品名称", "型号", "单位", "入库日期", "入库数量", "单价", "盘点日期", "当前库存", "备注"), Array(xlBook.xlSheets(i, 1), xlBook.xlSheets(i, 2), xlBook.xlSheets(i, 3), xlBook.xlSheets(i, 4), xlBook.xlSheets(i, 5), xlBook.xlSheets(i, 6), xlBook.xlSheets(i, 7), xlBook.xlSheets(i, 8), xlBook.xlSheets(i, 9), xlBook.xlSheets(i, 10), xlBook.xlSheets(i, 11))

adoRecordset.AddNew Array("序号", "供应商", "产品名称", "型号", "单位", "入库日期", "入库数量", "单价", "盘点日期", "当前库存", "备注"), Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
运行时，显示：
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突

Next i

Answer 1

Me.Adodc1.Recordset.Find
("编号="
+
userID)
改为
Me.Adodc1.Recordset.Find
"编号='"
&
userID
&
"'"