请教高手产品出库代码怎样写

宋雄健　发表于：2008-11-20 21:58:13 　

复制

我的库存表结构如下：

订单编号产品编号库存数量

000001 100024 35860

000001 100025 10000

000001 100026 93000

000002 100023 25100

000002 100024 92000

000002 100025 36512

我在出库的窗体代码：Rs1是库存表、Rs是出库表、

我按以下的代码在出库时老是扣除最下一行库存数量，请各位高手指教

Rs1("库存数量")=Rs1("库存数量") - Rs("出库数量")

Top

宋雄健发表于：2008-11-21 15:52:51

有人能帮忙吗？谢谢了

Top

放弃发表于：2008-11-22 12:20:58

你这个库存表中为什么要用多关键字段,"产品编号"不就行了?还有"老是扣除下一行"是什么意思呀?

Top

西南风王发表于：2008-11-23 08:26:31

您的问题已收到，我们正在处理中。

Top

西南风王发表于：2008-11-23 08:27:36

要设置条件,库存表的产品编号=出库表的产品编号,代码可这样写:

If Rs1.RecordCount < 1 Then
            CunZai = False
        Else

            Rs1.MoveFirst
            For j = 0 To Rs1.RecordCount - 1
                If Rs1("产品编号") = RS("产品编号") Then
                   Rs1("库存数量")=Rs1("库存数量") - Rs("出库数量")

                    Rs1.Update
                    CunZai = True
                    Exit For
                Else
                    Rs1.MoveNext
                End If
            Next j
        End If

Top

宋雄健发表于：2008-11-25 13:04:03

4楼的老师：您好！还有订单编号该怎样判定，请指教

Top

西南风王发表于：2008-11-26 08:24:55

若库存表里边有对应的订单号,则在条件里边改为:

" If Rs1("产品编号") = RS("产品编号") AND Rs1("订单号") = RS("订单号") Then "即可

Top

宋雄健发表于：2008-11-27 09:17:19

六楼的专家：您好！真的太感谢您了！

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

请教高手产品出库代码怎样写