主题：[求助]关于日期与价格关系问题

你也可以去取大于0的数据

f e.DataCol.Name = "物料号" OrElse e.DataCol.Name = "入库日期" Then
    Dim fdr As DataRow = DataTables("价格清单").Find("物料号 = '" & e.DataRow("物料号") & "' and 文件日期 <= #" & e.DataRow("入库日期") & "# and 协议价格 > 0", "文件日期 desc, 协议价格 desc")
    If fdr IsNot Nothing Then
        e.DataRow("协议价格") = fdr("协议价格")
    Else
        e.DataRow("协议价格") = Nothing
    End If
End If