arcgis属性表中如何才能按镇村给小班自动编号
答案:2 悬赏:0 手机版
解决时间 2021-01-24 01:03
- 提问者网友：欲望失宠
- 2021-01-23 00:12
arcgis属性表中如何才能按镇村给小班自动编号
最佳答案
- 五星知识达人网友：玩家
- 2021-01-23 01:28
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]换成你的村的字段。
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]换成你的村的字段。
全部回答
- 1楼网友：拜訪者
- 2021-01-23 02:18
有难度，建议换个思路，直接对personal geodatabase用VBA结合SQL语句来实现，在arcmap写宏命令。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯