库存自动累加如何实现,麻烦高手帮我看看
*sqlexec(nHandle,"select * from ruku ","入库_")SELECT 采购入库_
SCATTER TO b
c1=b(1)&&序号
c2=b(2)&&名称
c3=b(3)&&规格
c4=b(4)&&单位
c5=b(5)&&数量
c6=b(6)&&预警数量
c7=b(7)&&单价
c8=b(8)&&总价
c9=b(9)&&供货商
c10=b(10)&&是否入库
d=DATE()
f=TIME()
sqlexec(nHandle,"select * from ruku ","入库")
SELECT 入库
a=recc()
g=a+1 &&采购入库序号 G
sqlexec(nHandle,"insert into ruku (序号,名称,规格,单位,数量,单价,总价,供货商,入库日期,入库时间) values (?g,'&c2','&c3','&c4',?c5,?c7,?c8,'&c9',?d,'&f')")
sqlexec(nHandle,"update ruku set 操作人员='&yonghuming' where 序号="+STR(g))
sqlexec(nHandle,"select * from dangqiankucun ","当前库存")
SELECT 当前库存
PP1=RECCOUNT()+1&&获取当前表总记录并自动+1
SCATTER TO C
cc1=C(1)&&序号
cc2=C(5)&&单价
cc3=C(6)&&数量
cc4=C(7)&&总价
sl=c5+cc3&&数量
zj=cc2*cc3&&总价
COUNT FOR 名称='&c2' AND 规格='&c3' TO mingcheng
IF mingcheng=0
sqlexec(nHandle,"insert into dangqiankucun (序号,名称,规格,单位,单价,数量,总价,供货商,预警数量)values(?PP1,'&c2','&c3','&c4',?c7,?c5,?c8,'&c9',?c6)")
ELSE
sqlexec(nHandle,"update dangqiankucun set 数量=?sl 总价=?zj where 名称='&c2' and 规格='&c3' )
ENDIF
sqlexec(nHandle,"update caigouruku set 是否入库='是' where 序号="+STR(c1))&&修改采购是否入库
thisform.Init
thisform.AlwaysOnTop= .T.
hytizj.pageframe1.page6.click
GO bottom
现在问题应该出在sqlexec(nHandle,"update dangqiankucun set 数量=?sl 总价=?zj where 名称='&c2' and 规格='&c3' )
应该是where 名称='&c2' and 规格='&c3'这里错了,或者是格式错了,我的最终目的是,如果没有该类别就添加到当前库存,如果有该类别,请自动增加当前库存中的数量和总价
麻烦高手帮我解决一下,有点急!非常感谢!