显示指定图层的所有字段信息(VBA)

Public Sub ShowAllField()


'/显示指定图层的所有字段名称




Dim pMxDocument As IMxDocument


Dim pFeatureLayer As IFeatureLayer




Set pMxDocument = ThisDocument


Set pFeatureLayer = pMxDocument.FocusMap.Layer(0)




'/用FeatureLayer实现了ITable接口


'/因为可以说FeatureLayer其实是一种Table


'/它的层次在ITable下面


'/这样实现之后，pTable就具有了该FeatureLayer的表结构




Dim pTable As ITable


Set pTable = pFeatureLayer




Dim pFields As IFields


Dim pField As IField


Dim lngI As Long




Set pFields = pTable.Fields


For lngI = 0 To pFields.FieldCount - 1


Set pField = pFields.Field(lngI)


Debug.Print pField.Name, pField.IsNullable


Next




End Sub