Dim s1 As String = sheet(n, 0).Value Dim s2 As String = sheet(n, 1).Value Dim dr As DataRow = DataTables("表B").Find("(code = '" & s1 & "' or code is null and '" & s1 & "' = '') And (coding = '" & sheet(n,1).Value & "' or coding is null and '" & s2 & "' = '')")