[求助]如何获得最后一次材料入库时的单价 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何获得最后一次材料入库时的单价

共有13766人关注过本帖树形打印复制链接主题：[求助]如何获得最后一次材料入库时的单价

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/7/14 8:48:00 [显示全部帖子]

呵呵，这个用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