vba09-02.txt

ao的一些代码集合

'按NAME查询要素
Private Function GetCountyFeature(pFeatureLayer As IFeatureLayer, strCountyName As String) As IFeature
    
    '查找要素类
    Dim pFeatureClass As IFeatureClass    '要素类
    Dim pQueryFilter As IQueryFilter    '查询过滤器
    Dim pFeatureCursor As IFeatureCursor
    
    Set pFeatureClass = pFeatureLayer.FeatureClass    '从要素层获取要素类
    Set pQueryFilter = New QueryFilter    '创建一个新的查询过滤器
    pQueryFilter.WhereClause = "NAME = '" & strCountyName & "'"    '按郡名查找
    Set pFeatureCursor = pFeatureClass.Search (pQueryFilter, False)    '获取查询到的要素对象
    
    '获取要素
    Dim pFeature As IFeature    '要素
   
    Set pFeature = pFeatureCursor.NextFeature    '获取查询结果的下一个要素
    If pFeature Is Nothing Then    '如果该要素不存在    
        Set GetCountyFeature = Nothing    '返回值设为空
    Else
        Set GetCountyFeature = pFeature    '将该要素设为返回值
    End If
End Function