|
阅读：1808回复：2
如何在当前图层的属性表里加新字段？（AO）火急！
如何在当前图层的属性表里加新字段？（AO）火急！
|
|
|
1楼#
发布于：2004-05-21 20:31
<img src="images/post/smile/dvbbs/em07.gif" />
|
|
|
2楼#
发布于：2004-04-19 13:51
<P>Public Sub addfield()
Dim mxdoc As IMxDocument Dim mymap As IMap Dim pfl As IFeatureLayer Dim pfc As IFeatureClass Dim pfdse As IFieldsEdit Dim pfds As IFields Set mxdoc = Application.Document Set mymap = mxdoc.FocusMap Set pfl = mymap.Layer(0) '改成你自己要添加字段的图层</P><P>Set pfc = pfl.FeatureClass Set pfds = pfc.Fields Set pfdse = pfds 'add field Dim pfd As IField Dim pfde As IFieldEdit Set pfd = New Field Set pfde = pfd pfde.Name = "sz" '字段名 pfde.Type = esriFieldTypeDouble pfde.Length = 10</P><P>pfdse.addfield pfd End Sub</P> |
|
|
