Le portail francophone de la géomatique

    'Ajout d'une colonne ID à la table qui contiendra ROWID
    '------------------------------------------------------
    Dim I, NBCD as integer
    Dim NbColD as SmallInt
    Dim CnameAttendu as String
    
    name = "PARTIEL_OPERATIONS"

    If istableopen(name) then
        NbColD=TableInfo(name, TAB_INFO_NCOLS)
        For NBCD = 1 to NbColD
            'note NBCD
            CnameAttendu=ColumnInfo(name, "COL"&NBCD, COL_INFO_NAME)
            'note CnameAttendu
            If CnameAttendu="ID" Then 
                Exit For
                Exit Sub
            End If

            If CnameAttendu<>"ID" Then
                Alter table name (add ID Integer) interactive
                Update name Set ID = ROWID
                Commit table name interactive
                Open table "C:\Documents and Settings\GiraultV\Mes documents\MI\Tables\"+name+ ".TAB"
                Set Map Redraw on
            End If
        Next
    End If
End sub