フィールドにインクリメントした数字を挿入する方法

 2016/9/1 (木)    

'------
'演算式
'  Static recno As Long
'  recno = recno + 1
'
'フィールド名=
'  recno
 
'※フィールド演算の高度な設定で書いた変数はPublicなので残っている。
 
'------
'フィールド演算相当の機能
Sub test()
    Dim i1 As Integer
    Dim i2 As Integer
    Dim i3 As Long
     
    i1 = 0  '対象レイヤ
    i2 = 4  'フィールドのインデックス番号
    i3 = 0  'フィールドに書き出し始める数値
     
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
     
    Dim pFLayer As IFeatureLayer
    Set pFLayer = pMxDoc.FocusMap.Layer(i1)
     
    Dim pFeatureCursor As IFeatureCursor
    Set pFeatureCursor = pFeatureClass.Update(Nothing, False)  'QueryFilter:検索条件
     
    Dim pFeature As IFeature
    Set pFeature = pFeatureCursor.NextFeature
     
    Do Until pFeature Is Nothing
         
        pFeature.Value(i2) = i3
        i3 = i3 + 1
         
        pFeatureCursor.UpdateFeature pFeature
        Set pFeature = pFeatureCursor.NextFeature
         
    Loop
End Sub

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.