主题：单价自动显示

各位帮一下忙，材料基础表和入库表中的单价，自动在库存表中进行显示出来，要求入库单没有的单价，自动从基础表读入，对于入库表的单价的日期超过材料基础表的日期，自动从入库表中读入单价，表达式如何写

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

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

非常感谢

又出现一个问题，假设入库单的价格有两个，要显示最近入库的单价，在库存表中自动显示，该如何解决

入库单价格随市场一直在变，那该如何解决，请各位帮忙

搞不定，请师傅帮我写一下

Dim r As DataRow = e.DataRow
Dim dr1,dr2 As DataRow
dr1 = DataTables("基础材料").Find("材料编码 = '" & r("材料编码") & "'")
dr2 = DataTables("入库单").Find("材料编码 = '" & r("材料编码") & "'","日期 Desc")
If dr1 IsNot Nothing AndAlso dr2 IsNot Nothing Then
    If dr2("日期") > dr1("日期")
        r("单价") = dr2("单价")
    Else
        r("单价") = dr1("单价")
    End If
ElseIf dr1 IsNot Nothing Then
        r("单价") = dr1("单价")
    End If

如果这样写的可以，但出现需要输入一下才能执行，这如何解决？