主题：单价自动显示

表达式只能在表达式列中来写，你又没有表达式列，怎么写呢？ 

用代码这样看看：

Dim r As Row = Tables("库存表").current  ' rows(Tables("库存表").position)
Dim dr,dr1 As DataRow
dr = DataTables("基础材料").Find("材料编码 = '" & r("材料编码") & "'")
dr1 = DataTables("入库单").Find("材料编码 = '" & r("材料编码") & "'")
If dr1 IsNot Nothing And dr IsNot Nothing Then
    If dr1("日期") > dr("日期")
        r("单价") = dr1("单价")
    Else
        r("单价") = dr("单价")
    End If
Else
    If dr IsNot Nothing Then
        r("单价") = dr("单价")
    End If
End If

如果你什么也没有输入，凭什么条件找到你要的单价呢？？？