主题：跨表引用

If e.DataCol.Name = "子件品号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("最新单价") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("进退货历史").Find("[品号] = '" & e.DataRow("子件品号") & "'", "_Identify desc")
        If dr IsNot Nothing Then
            e.DataRow("最新单价") = dr("单价")
        Else
            msgbox(123)
        End If
    End If
End If