arcgis小班自动编号_arcgis顺序编号00001开始资源-CSDN文库

小班自动编号

需积分: 43 185 浏览量 2018-05-14 14:26:58 上传评论 3 收藏 14KB DOCX 举报

资源推荐

资源详情

资源评论

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]换成你的村的字段。

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余0页未读，立即下载

内容反馈

qq_21461235

粉丝: 1
资源: 1

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈

feedback-tip