For Each gdr2 As DataRow In DataTables("aaa").DataRows
Dim gdr3 As DataRow = DataTables("啊啊啊").find("J啊啊 = '" & gdr2("啊啊啊") & "'")
If gdr3 IsNot Nothing Then
gdr2("不相同") = "相同"
End If
If dr3 Is Nothing Then
dr2("不相同") = "相同"
End If
Next
此主题相关图片如下:微信图片_20240810123158.png
看不出上面代码和这个错误提示有什么关系。检查其它代码