以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  2个字段同时匹配怎样改进公式？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186003)
--  作者：wusim
--  发布时间：2023/3/31 7:25:00
--  2个字段同时匹配怎样改进公式？
要求D1表与D2表的使用单位、出厂编号同时相同才进行匹配，更新报告状态

Dim dt1 As DataTable = DataTables("D1")
Dim dt2 As DataTable = DataTables("D2")
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/31 8:46:00
--  

Dim fdr As DataRow = dt2.Find("出厂编号 = \'" & dr("出厂编号") & "\' and 使用单位 = \'" & dr("使用单位") & "\'","检验日期 desc")