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

petrelai

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



    bian = " [商品编号] ='" & Forms![销售出库]![销售出库子窗体]![商品编号] & "'"
    qian = " [商品进价] =" & Forms![销售出库]![销售出库子窗体]![进货价] & " "
    wan = "[完结]=" & False
    wei = Forms![销售出库]![销售出库子窗体]!数量
      Set db = CurrentDb()
      strXs = "select 库存表.日期,库存表.库存量,库存表.完结,库存表.商品进价 from 库存表 where 库存表.商品编号 = '" & Forms!销售出库!销售出库子窗体!商品编号 & "'" & "and  库存表.完结 = " & False & ""
      Set rec = db.OpenRecordset(strXs, dbOpenDynaset)
      If IsNull(rec("日期")) Then
        MsgBox "库存中没有该商品信息,请确认是否已入库!", 16, "警告"
        Exit Sub
      End If
       Do While wei > 0 Or Not rec.EOF
        If rec("库存量") > wei Then
        rec.Edit
        rec("库存量") = rec("库存量") - wei
        Forms![销售出库]![销售出库子窗体]![进货价] = rec("商品进价")
        rec.Update
        Set Rs1 = db.OpenRecordset("销售日志", dbOpenDynaset)
        Rs1.AddNew
        Rs1("日期") = Forms![销售出库]![单据日期]
        Rs1("商品编号") = Forms![销售出库]![销售出库子窗体]![商品编号]
        Rs1("数量") = wei
        Rs1("商品进价") = rec("商品进价")
        Rs1("商品售价") = Forms![销售出库]![销售出库子窗体]![商品售价]
        Exit Do
        Else
        rec.Edit
        wei = wei - rec("库存量")
        Forms![销售出库]![销售出库子窗体]![进货价] = rec("商品进价")
        rec("库存量") = 0
        rec("完结") = True
        rec.Update
        Set Rs1 = db.OpenRecordset("销售日志", dbOpenDynaset)
        Rs1.AddNew
        Rs1("日期") = Forms![销售出库]![单据日期]
        Rs1("商品编号") = Forms![销售出库]![销售出库子窗体]![商品编号]
        Rs1("数量") = wei
        Rs1("商品进价") = rec("商品进价")
        Rs1("商品售价") = Forms![销售出库]![销售出库子窗体]![商品售价]
        End If
                       
    rec.MoveNext
   Loop

代码是这样吗？好像不行耶，我加了进去，没反应！

petrelai

哈…………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………笑三天三夜都不够呀，非常感谢您的帮忙！

petrelai

肯定的啦。非常开心！
还有，PAUL16版主大人，你在泼我冷水吗？或许您有什么好意见，提出来呀。我可不想到没有路走时，就完了。

petrelai

你们是说我设计的系统结构设计上不好，容易出错，是吧？

petrelai

其实就像“我同意”那样说的。建一个进价历史表：日期，商品编号，进价，完结。把每一闪采购进货时，如果是同一种商品，进价不一样的话，那就新增进去，如果说是相同的话，那就加进去。销售出库时就刚才好相反。不过做起很烦人，联系到删除，编辑也要用进行进出库。

petrelai

不好意思，我自己也在修改，有点乱。也还没有做完。

[此贴子已经被作者于2004-4-22 20:14:06编辑过]

petrelai

不好意思！传错了！
还在上上楼中！

[此贴子已经被作者于2004-4-22 15:11:03编辑过]

petrelai

这次行了吧