Question

arcgis属性表中如何才能按镇村给小班自动编号

现在我已经知道arcgis中如果对小班自动编号，实现类似“0001”这种四位编号，在field calculator中输入 VBA部分: Static lCount as long Dim a as string lCount=lCount+1 a= Format( lCount, "0000") 赋值部分: a 如果我想对每个乡镇不同的村进行自动编号，如何输入语言呢

Answer 1

vba部分：

Static d As Object
Static i As Long
Dim lSerial As Long
Dim sField
Dim a
Dim b

sField = [XZQHMC]

If (i = 0) Then
Set d = CreateObject("Scripting.Dictionary")
End If
If (d.Exists(CStr(sField))) Then
lSerial = d.Item(CStr(sField)) + 1
d.Item(CStr(sField)) = lSerial
Else
lSerial = 1
d.Add CStr(sField), lSerial
End If
i = i + 1
a=Format( lSerial, "0000")
b=a

赋值部分：
b

[XZQHMC]换成你的村的字段。

Answer 2

有难度，建议换个思路，直接对personal geodatabase用VBA结合SQL语句来实现，在arcmap写宏命令。