各位高手，请进！关于库存先进先出问题！

Benjamin_luk

你可以用总价来记录成本嘛！

Benjamin_luk

按平均单价不就成了吗？

Benjamin_luk

都是同一订单，用不着分那么细的了

[此贴子已经被作者于2004-4-5 15:00:24编辑过]

Benjamin_luk

你在下面的代码中加入增加数据到成本表不行了吗？你进货时还是用批号吧
//Dim Rs1 as recordset
//set rs1=db.OpenRecordset("成本表", dbOpenDynaset)
//在减库存量的时候同时记录成本
//RS1.Edit
//rs1(..)=Forms!..![订单号]
//rs1(..)=Forms!..![产品]
//rs1(..)=wei
//rs1(..)== rec("商品进价")
这样的记录,还怕什么找不到



Dim bian, ku, wan, wei, qi, qian, zi
Dim e As Currency
Dim ri As Date
Dim db As DAO.Database
Dim rec As DAO.Recordset
Dim strXs As String
Dim check
check = True

bian = " [商品编号] ='" & Forms![销售出库]![销售出库子窗体]![商品编号] & "'"
wan = "[完结]=" & False
wei = Forms![销售出库]![销售出库子窗体]!数量
      Set db = CurrentDb()
      strXs = "select 库存表.日期,库存表.库存量,库存表.完结,库存表.商品进价 from 库存表 where 库存表.商品编号 = '" & Forms!销售出库!销售出库子窗体!商品编号 & "'" & "and  库存表.完结 = " & False & ""
      Set rec = db.OpenRecordset(strXs, dbOpenDynaset)
      'ri = DMin("日期", "库存表")
      'rec.FindFirst "[日期]=# " & Forms!销售出库!销售出库子窗体!单据日期 & "#"
       Do While wei < 0 Or Not rec.EOF
        If rec("库存量") > wei Then
        rec.Edit
        rec("库存量") = rec("库存量") - wei
        Forms![销售出库]![销售出库子窗体]![进货价] = rec("商品进价")
        rec.Update
        Exit Do
        Else
        rec.Edit
        wei = wei - rec("库存量")
        Forms![销售出库]![销售出库子窗体]![进货价] = rec("商品进价")
        rec("库存量") = 0
        rec("完结") = True
        rec.Update
        
        End If
        
    rec.MoveNext
   Loop

Benjamin_luk

Do While wei < 0 Or Not rec.EOF
是不是应该为:
Do While wei > 0 Or Not rec.EOF

Benjamin_luk

另外,我觉得,你还先看一下,库存量是否足够,所以还要多写一些代码,提醒用户当前的库存是否足够.

Benjamin_luk

只有这样才能做到了，这样做也很容易呀

Benjamin_luk

要加
rs1.Update

Benjamin_luk

值得这么开心吗？