主题：[求助]匹配公式怎样修改

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("出厂编号") & "' and  Format(e.DataRow("出厂日期"),"yyyy") = '" & Format(e.DataRow(dr ("出厂日期"),"yyyy") & "'","检验日期 desc")

        If fdr IsNot Nothing Then

        dr("报告状态") = fdr("报告状态")

    End If

Next