地信网论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

免费视频|新人指南|答学员问|投诉删帖

禁止上传涉密资料|赚取铜板|附件下载

查看: 275|回复: 0
收起左侧

[求助] vB语句按类编号一类的一起编号打家来帮忙看看怎么运行不了

[复制链接]

17

主题

775

铜板

3

好友

助理工程师

Rank: 5Rank: 5

积分
149
发表于 2018-5-13 17:40 | 显示全部楼层 |阅读模式
土地论坛

马上注册地信网,享受更多功能,学习更多知识,成就人生精彩!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
Static d As Object
Static i As Long
Dim lSerial As Long
Dim sField
Dim a
Dim b
sField = [XZCDM]
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

__esri_field_calculator_splitter__
b


这个代码是vb的  根据XZCDM字段来编号  行政村代码相同的 他们编一次号 但是这个代码我运行的时候提示99999错误  那位大神给看看 或者大家谁有9.X的版本的试试  看看是不是版本的问题

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

土流网招商加盟广告
在线客服

新人指南|地信论坛 ( 湘ICP备14003170号-5 湖南土流信息有限公司 版权所有 关于地信 联系方式 邮箱登陆

湘公网安备 43010302000511号

Powered by Discuz! X3.2

快速回复 返回顶部 返回列表