二个网址无法进行比较
For Each r As Row In Tables("网址汇总1").Rows
Dim fdr As DataRow = DataTables("原始网址1").Find("公告网址 = '" & r("公告网址") & "'")
If fdr IsNot Nothing Then
r("家数") = "已有"
Else
r("家数") = "BB"
End If
Next
如下:
https://ggzy.zj.gov.cn/art/2023/10/19/art_1229682666_236582.html
https://ggzy.zj.gov.cn/art/2023/10/19/art_1229682666_236578.html
https://ggzy.zj.gov.cn/art/2023/10/19/art_1229682666_236541.html
字符串默认肯定都是可以比较的。如果不行只能是数据有问题