For Each r As Row In Tables("家养狗档案A").rows
If DataTables("家养狗档案B").Find("养狗人 = '" & r("养狗人") & "' And 身份证号 = '" & r("身份证号") & "' And 犬类身份证 = '" & r("犬类身份证") & "' And 品种 = '" & r("品种") & "'") Is Nothing Then
r("合并情况") = "未合并"
Else
r("合并情况") = "已合并"
End If
Next
因为“中华田园犬”俗名“土狗”所以在实际中会出现这样的问题
家养狗档案A:【养狗人】张三【身份证号】123456【犬类身份证】123【品种】中华田园犬
家养狗档案B:【养狗人】张三【身份证号】123456【犬类身份证】123【品种】土狗
如何克服这个问题呢?