Le portail francophone de la géomatique

Bonjour,

Vous trouverez ci-dessous une fonction qui fait ça

Cordialement,
Laurent MEAR


'Remplir une collection avec les valeurs d'un champ
    Private Sub RemplirListeValeurs(Byval pTable As ITable,  ByVal VSLT_FIELD As String, ByRef VLOB_COLVAL As Collection)

                Dim pFields As IFields = pTable.Fields

                ' rechercher la position du champ
                Dim VLNN_POSFI As Integer = pFields.FindField(VSLT_FIELD)
                Dim pField As IField = pFields.Field(VLNN_POSFI)
                'remplir la collection de valeur si le champ est de type chaine
                'If pField.Type = esriFieldType.esriFieldTypeString Then
                Dim pTableSort As New TableSort
                With pTableSort
                    .Fields = pField.Name
                    .Ascending(pField.Name) = True
                    .CaseSensitive(pField.Name) = False
                    .QueryFilter = Nothing
                    .Table = pTable
                End With
                pTableSort.Sort(Nothing)
                Dim pCursor As ICursor = pTableSort.Rows
                Dim pDataStatistics As IDataStatistics = New DataStatistics
                pDataStatistics.Field = pField.Name
                pDataStatistics.Cursor = pCursor

                Dim pEnum As System.Collections.IEnumerator
                Dim VLST_VALUE As String
                Try
                    ' lancer le tri des valeurs unique
                    pEnum = pDataStatistics.UniqueValues()
                    ' compter les valeur uniques
                    Dim VLNN_NBVAL As Integer = pDataStatistics.UniqueValueCount
                    If VLNN_NBVAL > VGNN_NBMAXVAL Then
                        VLOB_COLVAL.Add("trop de valeurs")
                    Else
                        While pEnum.MoveNext() = True
                            VLST_VALUE = CStr(pEnum.Current)
                            If Trim(VLST_VALUE).Length > 0 Then ' on ajoute la valeur si elle n'est pas vide
                                VLOB_COLVAL.Add(VLST_VALUE)
                            End If
                        End While
                    End If
                Catch
                    MsgBox(Err.Description)
                End Try
            End If
   End Sub

Laurent MEAR
Direction Informatique et Télécom
Brest métropole océane
Tél: 02.98.34.30.32