标签：
1、For循环
For i As Integer = 0 To pTable.Fields.FieldCount - 1 Next
2、Select语句
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
标签：
原文地址：http://www.cnblogs.com/GIScore/p/5303125.html
