可不可以在Vb下面改变一个Feature的某字段的字值

<P>可不可以在Vb下面改变一个Feature的某字段的字值？</P>
<P>郁闷，，pFeature.Fields.Field(3).DefaultValue = "ss"这样写错误的吗？</P>
<P>大家帮帮我!!</P>

<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>

谢谢，终于搞定

<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

很好，谢谢了

楼上用过那段程序的有没有发现往里面写中文时，中文变成了一些汉字和一些字符的问题呀？

<img src="images/post/smile/dvbbs/em23.gif" />