vba09-02.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 28 行

Private Function GetCountyFeature( _
pFeatureLayer As IFeatureLayer, _
strCountyName As String) As IFeature
    
    ' Query the feature class.
    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)
    
    ' Get the feature.
    Dim pFeature As IFeature
   
    Set pFeature = pFeatureCursor.NextFeature
    If pFeature Is Nothing Then
        Set GetCountyFeature = Nothing
    Else
            Set GetCountyFeature = pFeature
    End If
End Function