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