dim record2 as adodb.recordset
dim record3 as adodb.recordset
openrecord "select * from 仓库 where (出入货标记= '出' and 已出货 = false) order by 进出货日期", record2
a1 = record2("商品名称")
openrecord "select * from 仓库 where (结余数量 >0 and 商品名称 =a1) order by 进出货日期", record3
在运行的时候老是出错：-2147217904（80040e10), 至少一个参数没有被指定值
我估计是 where (结余数量 >0 and 商品名称 =a1) 这里 商品名称 = a1 是不能这样写的，但是怎么写的呢，我已经被书里面的那些 """ + xxxx + """弄得头大了，能帮我说说么？谢谢咯。作者: t小宝 时间: 2008-5-16 23:12
如果a1不是变量,,就这样写:
商品名称 = 'a1'作者: t小宝 时间: 2008-5-16 23:13
如果a1不是变量,,就这样写:
商品名称 = 'a1'作者: snack 时间: 2008-5-17 08:07
a1是变量阿，怎么写呢？作者: kangking 时间: 2008-5-17 08:42
openrecord "select * from 仓库 where (结余数量 >0 and 商品名称 ='" & a1 & "') order by 进出货日期", record3
这样试试。作者: kangking 时间: 2008-5-17 08:46
currentdb.openrecord( "select * from 仓库 where (结余数量 >0 and 商品名称 ='" & a1 & "') order by 进出货日期")
或者这样试试。