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