标题：[求助]如何获得最后一次材料入库时的单价

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

我是新手，刚用狐表，有个问题请教，将附件里的“产品成本”打开，使用合并模式，就可以看到每种产品是由“材料入库明细”里的各个零件构成的，我要算产品成本就要用到“材料入库明细”里的各种零件的价格和相关资料做成报表，而材料入库明细里的零件价格是每次进货都可能不一样的，我需要根据最近一次的价格合算成本，有没有什么办法，使我任意调整“产品成本”里的日期都能得到该日期之前最后一次材料入库时的单价啊？我的“材料入库明细”里的零件可能有上百种，而产品也在100多种的样子

呵呵，这个用foxtable做，再简单不过了：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目121.rar

 

代码：

 

For Each dr1 As DataRow In DataTables("产品成本").DataRows
    Dim dr2 As DataRow
    Dim flt As String
    flt = "零件 = '" & dr1("零件") & "' And  型号 = '" & dr1("型号") & "' And 规格 = '" & dr1("规格") & "'"
    dr2 = DataTables("材料入库明细").Find(flt,"日期 Desc")
    If dr2 IsNot Nothing Then
        dr1("单价") = dr2("单价")
    End If
Next

 

 

知识要点：

http://www.foxtable.net/help/topics/0396.htm

 

 

非常感谢！看来这个是需要编程的啊，这方面我不懂，还要花很长时间来学习。再次谢谢您的帮助！

我也是电子工程师出身，能玩电子的人，花少少时间就可以掌握foxtable了。

感谢您的鼓励，还有个问题想问一下，就是命令窗口的编程程序如何保存？谢谢！

命令窗口一般是调试代码的。

真正的代码都是写在事件里头的，往后看就明白了。

非常感谢！