|
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的版本的试试 看看是不是版本的问题
|
|