# Re: 请问如何能够将 *.mdb中的一个栏位中的数字减一?

Posted by chjichin on May 28, 1999 at 12:36:14:

In Reply to: 请问如何能够将 *.mdb中的一个栏位中的数字减一? posted by Benlaw on May 26, 1999 at 22:26:36:

看来你是要做库存管理,请问你是做即时库存,还是批次库存,如果是即时库存应该是在输入数量后马上去扣库存,例如:
private sub Text5_LostFocus()
库存量=库存量-text5.text
end sub
如果是批次库存,则在过帐后一并扣库存,例如:
set db=opendatabase("库存表")
Set rst = dbs.OpenRecordset("select 出货单表身.商品代号,sum(数量) as 销货数量 from 出货单表身 group by 出货单表身.商品代号")
dbs.Execute "update 库存表 set 库存量 = 库存量 -" & rst("销货数量")

请参考指教,谢谢

Follow Ups:

- Re:谢谢您的帮助 ben 18:31:32 5/28/99 (0)