|
阅读：1668回复：7
可不可以在Vb下面改变一个Feature的某字段的字值
<P>可不可以在Vb下面改变一个Feature的某字段的字值？</P>
<P>郁闷，，pFeature.Fields.Field(3).DefaultValue = "ss"这样写错误的吗？</P> <P>大家帮帮我!!</P> |
|
|
1楼#
发布于：2005-03-28 15:40
<P>可以。</P><P>'=========//给地块赋属性================================
Sub GetPorperty(pBaseFeature As IFeature) Dim pArea As IArea Dim pFieldsNew As IFields Dim lFldGeocodeNew As Long, lFldCADHandleNew As Long Dim pDataset As esriCore.IDataset Dim pWorkspaceEdit As esriCore.IWorkspaceEdit</P><P> Set pDataset = pBaseFeature.Class Set pWorkspaceEdit = pDataset.Workspace</P><P> pWorkspaceEdit.StartEditOperation Set pFieldsNew = pBaseFeature.Fields lFldGeocodeNew = pFieldsNew.FindField("设计编号") pBaseFeature.Value(lFldGeocodeNew) = Trim(TxtSjbh.Text) lFldGeocodeNew = pFieldsNew.FindField("年度") pBaseFeature.Value(lFldGeocodeNew) = Trim(Me.ComboYear.Text) lFldGeocodeNew = pFieldsNew.FindField("项目类型") pBaseFeature.Value(lFldGeocodeNew) = "" lFldGeocodeNew = pFieldsNew.FindField("林业局") pBaseFeature.Value(lFldGeocodeNew) = Trim(TxtLyj.Text) </P><P> '//==============计算面积=============== Set pArea = pBaseFeature.Shape lFldGeocodeNew = pFieldsNew.FindField("总面积") pBaseFeature.Value(lFldGeocodeNew) = Val(Format(Abs(pArea.Area), "#.####")) pBaseFeature.Store pWorkspaceEdit.StopEditOperation End Sub</P> |
|
|
2楼#
发布于：2005-03-29 13:22
谢谢，终于搞定
|
|
|
3楼#
发布于：2005-04-19 01:17
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
4楼#
发布于：2005-05-04 23:36
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />
|
|
|
5楼#
发布于：2005-05-18 22:01
很好，谢谢了
|
|
|
6楼#
发布于：2005-05-19 15:43
楼上用过那段程序的有没有发现往里面写中文时，中文变成了一些汉字和一些字符的问题呀？
|
|
|
7楼#
发布于：2005-05-22 00:32
<img src="images/post/smile/dvbbs/em23.gif" />
|
|
|
