主题：[求助]有效价格的提取怎么处理

此主题相关图片如下：1568701462(1).png

tables("价格审批").filter = "价格起始日期 <= #" & d & "# and 价格截止日期 > #" & d & "#"

蓝主，如果我想像表达式一样，输入存货编码，填写要求交货日期之后，有效价格能自动显示，需要怎么改，试了两天，老是不对，拜求方法

日期不支持使用表达式计算。只能使用代码处理

我就是看了帮助，代码用帮助上改的老是提示错误，本来想用帮助上的跨表引用代码IF，但里面老是改不对，总提示错误

贴出代码，或者上传实例说明

If e.DataCol.Name = "存货编码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("单价") = Nothing
    Else
        Dim dr As DataRow
        Dim d As DataRow=e.DataRow
        dr = DataTables("价格审批台账").Find("[存货编码] = '" & e.NewValue & "'")
        d=DataTables("价格审批台账").Find("起始 <= #" & d & "# and 截止 > #" & d & "#" )
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("单价") = dr("单价")
        End If
    End If

Select Case e.DataCol.Name
    Case "存货编码","要求交货日期"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow = e.DataRow
        If dr.IsNull("存货编码") OrElse dr.IsNull("要求交货日期") Then
            dr("单价") = Nothing
        Else
       pr= DataTables("价格审批台账").Find("起始 <= #" & pr("要求交货日期") & "# and 截止 >= #" & pr("要求交货日期") & "#" )
         If pr IsNot Nothing Then
         dr("单价") = pr("单价")
            End If
        End If

感谢两位大神