ArcEngine 获取字段唯一值

在做一般的数据处理时，要想得到某字段唯一值，我们可以利用SQL语言之关键字Distinct方便地获得。但是在用AE作开发时，我们应该怎样去做呢？当然我们可以首先获得某个字段的所有值，然后再去比较、提取、获得唯一值。这样的工作写起来麻烦，效率也非常低。其实AE类库ESRI.ArcGIS.Geodatabase之接口IDataStatistics已为我们提供了这样的方法。

ArcGIS开发帮助文档有很多示例，大都都是用VB或是VBA编写，下面是本人利用C#+AE9.1编写的示例：

1        /// <summary>
 2        /// 得到要素类某字段的唯一值
 3        /// </summary>
 4        /// <param name="pFeatureClass">要素类</param>
 5        /// <param name="strFld">指定要得到唯一值的字段</param>
 6        /// <returns>唯一值字符数据</returns>
 7        public static string[] GetUniqueValue(IFeatureClass pFeatureClass,string strFld)
 8        {
 9            //得到IFeatureCursor游标
10            IFeatureCursor pCursor=pFeatureClass.Search(null,false);
11
12            //coClass对象实例生成
13            IDataStatistics pData=new DataStatisticsClass();
14            pData.Field=strFld;
15            pData.Cursor=pCursor as ICursor;
16
17            //枚举唯一值
18            IEnumerator pEnumVar=pData.UniqueValues ;
19
20            //记录总数
21            int RecordCount=pData.UniqueValueCount;
22
23            //字符数组
24            string[] strValue=new string[RecordCount];   
25            pEnumVar.Reset();
26        
27            int i=0;
28
29            while(pEnumVar.MoveNext())
30            {
31                strValue[++i]=pEnumVar.Current.ToString();
32            }            
33   
34            return strValue;
35        }

文章出处

  但当图层的数据量很大时，以上这种方法执行起来速度较慢，性能影响比较明显，得考虑使用另外一种方法。通过IQueryDef接口使用类似SQL的查询语句来获取图层字段的唯一值集合，执行速度等同于执行SQL查询语句。据说：在SDE.个人数据库.可以的.在shape文件和 文件数据库中不能使用.

Public Function GetUVByQueryDefFunction GetUVByQueryDefByVal pFeatureLayer As IFeatureLayer, ByVal strField As String As IListOf String
        Dim uvList As IListOf String = New ListOf String

        Dim pQueryDef As IQueryDef
        Dim pRow As IRow
        Dim pCursor As ICursor
        Dim pFeatureWorkspace As IFeatureWorkspace
        Dim pDataset As IDataset

        pDataset = pFeatureLayer.FeatureClass
        pFeatureWorkspace = pDataset.Workspace
        pQueryDef = pFeatureWorkspace.CreateQueryDef
        With pQueryDef
            .Tables = pDataset.Name ' Fully qualified table name
            .SubFields = 'DISTINCT' & strField & ''
            pCursor = .Evaluate
        End With

        pRow = pCursor.NextRow
        While Not pRow Is Nothing
            Dim pObj As Object = pRow.Value0
            uvList.AddpObj.ToString
            pRow = pCursor.NextRow
        End While
        Return uvList
    End Function

 文章出处