怎样改进公式?
叉车导入数据导入表字段: 工作日期、出厂编号、整改情况
报告情况表字段:检验日期、出厂编号、报告状态
要求:匹配2个表的出厂编号相同,把报告情况表中的“报告状态”的内容填写到导入数据导入表中“报告状态”,由于数据有2年以上的数据,怎样才能只匹配后4个月内数据。
如 出厂编号:121 工作日期:2022年3月1日 检验完成日期(大于等于工作日期):2022年3月10日 整改情况:已整改 这时叉车导入数据导入表的报告状态自动匹配报告情况表的报告状态内容
今年这台设备的工作日期:2023年3月8 检验完成日期(大于等于工作日期):2022年3月10日 整改情况:已整改 还没有出具报告 这时叉车导入数据导入表的报告状态自动匹配报告情况表的报告状态内容是空白
Dim dt1 As DataTable = DataTables("叉车导入数据")
Dim dt2 As DataTable = DataTables("报告情况")
For Each dr As DataRow In dt1.Select("")
Dim fdr As DataRow = dt2.Find("出厂编号 = '" & dr("出厂编号") & "'","检验日期 desc")
If fdr IsNot Nothing Then
dr("报告状态") = fdr("报告状态")
End If
Next
[此贴子已经被作者于2023/3/15 7:23:17编辑过]