以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85067)
--  作者：woshiabc
--  发布时间：2016/5/17 8:46:00
--  窗口代码

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb

配方价格窗口表按原材料价格表的最近时间进行自动更新价格（A客户也是根据最新时间更新价格）


 
--  作者：Hyphen
--  发布时间：2016/5/17 9:04:00
--  
Dim drs As List(Of DataRow) = DataTables("配方价格窗口").Select("A客户 = true")
For Each r As DataRow In drs
    Dim dr As DataRow = DataTables("材料价格").Find("材料名称 = \'" & r("材料名称") & "\' And 是否A客户 = true","日期 desc")
    If dr IsNot Nothing Then
        r("价格") = dr("价格")
    End If
Next