|
阅读:1015回复:1
一段保存编辑的代码帮我看看哪里有错
<P>Dim pWSEdit As IWorkspaceEdit<BR> Dim pDataSet As IDataset<BR> Dim pField As IField<BR> Dim FieldIndex As Integer</P>
<P> Try<BR> If strValue Is Nothing Or pFealyr Is Nothing Or pFeature Is Nothing Then Return False</P> <P> pDataSet = pFealyr.FeatureClass<BR> pWSEdit = pDataSet.Workspace<BR> FieldIndex = pFeature.Fields.FindField(FieldName)<BR> pField = pFeature.Fields.Field(FieldIndex)</P> <P> If checkValue(pField, strValue) Then<BR> pWSEdit.StartEditOperation()<BR> pWSEdit.StartEditing(False)<BR> pFeature.Value(FieldIndex) = strValue<BR> pWSEdit.StopEditing(True)<BR> pWSEdit.StopEditOperation()<BR> Return True<BR> Else<BR> MsgBox("您输入的不正确,请重新输入!", MsgBoxStyle.Critical, )<BR> Return False<BR> End If<BR> Catch ex As Exception<BR> Return False<BR> End Try</P> <P>我先前已经输入了值,把编辑对话框关闭后,察看数据库里的属性还是原来的值,到底哪里出错了呢?</P> |
|
|
1楼#
发布于:2006-08-23 17:11
<P>老弟,语句写反了没有啊? 正确顺序应该是下面的吧?</P>
<P> pWSEdit.StartEditing(False)<BR> pWSEdit.StartEditOperation()<BR> pFeature.Value(FieldIndex) = strValue<BR> pWSEdit.StopEditOperation()<BR> pWSEdit.StopEditing(True)</P> |
|
|