vba09-02.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

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