ArcGIS中检查属性表有无重复的方法

高冷的哥哥

在ArcGIS中我们常常需要检查属性表中有无重复的问题，比如图斑面积有无重复、线长度有无重复等。现在来说一下方法O(∩_∩)O
1、新建一个字段，字段类型选integer，命名为检查重复（随自己意愿啦）
2、右键field calculate，勾选advanced，将下文代码贴入
' ----------------------------------------
' ESRI Support Home > Knowledge Base > Technical Articles > Article Detail
' 代码参见 HowTo:  Identify duplicate field values
' @ Tsonghua 090924
' ----------------------------------------

Static d As Object
Static i As Long
Dim iDup As Integer
Dim sField
' ----------------------------------------
'这里填写需要检查的字段名
sField = [A]
' ----------------------------------------
If (i = 0) Then
Set d = CreateObject("Scripting.Dictionary")
End If
If (d.Exists(CStr(sField))) Then
iDup = 1
Else
d.Add CStr(sField), 1
iDup = 0
End If
i = i + 1
注意这里：'这里填写需要检查的字段名sField = [A]
3、在= 下面，填  iDup，确定，OK~

qq47381141

骚年，建议使用代码块啊，看着清晰舒爽。-----下面是复制楼主的内容------

1. Static d As Object
   
2. Static i As Long
   
3. Dim iDup As Integer
   
4. Dim sField
   
5. ' ----------------------------------------
   
6. '这里填写需要检查的字段名
   
7. sField = [A]
   
8. ' ----------------------------------------
   
9. If (i = 0) Then
   
10. Set d = CreateObject("Scripting.Dictionary")
    
11. End If
    
12. If (d.Exists(CStr(sField))) Then
    
13. iDup = 1
    
14. Else
    
15. d.Add CStr(sField), 1
    
16. iDup = 0
    
17. End If
    
18. i = i + 1

复制代码

yaoxch

:zt支持分享，这个查重toolbox里有工具的

ACB231

感谢楼主的分享！！！！

darkeronly

楼主，我复制你的代码计算的时候显示有错误，麻烦你帮我看下是哪里出错了
Static d As Object
Static i As Long
Dim iDup As Integer
Dim sField
' ----------------------------------------
sField = [BSM]
' ----------------------------------------
If (i = 0) Then
Set d = CreateObject("Scripting.Dictionary")
End If
If (d.Exists(CStr(sField))) Then
iDup = 1
Else
d.Add CStr(sField), 1
iDup = 0
End If
i = i + 1

leochan

:ai:ai

tsnc

感谢分享！

谢谢大佬分享，看来arcgis必须得回点代码了

路鹏123

谢谢分享

sskcdn

感谢分享！