VB语法

 For i As Integer = 0 To pTable.Fields.FieldCount - 1

    Next

 Dim pFeatLyr As IFeatureLayer = pLayer
    Select pFeatLyr.FeatureClass.ShapeType
      Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPoint : Return "Point"
      Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolygon : Return "Polygon"
      Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolyline : Return "Polyline"
    End Select