YouTube | Facebook | Twitter  Feed

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

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

関連記事

  • この記事を書いた人

羽田 康祐

Twitter#一日一図法を連載中。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、元PADIダイブマスター、四アマ。 代表著書『地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、発言は個人の見解です。

-プログラミング, ArcGIS
-,