stella1125
路人甲
路人甲
  • 注册日期2006-08-04
  • 发帖数3
  • QQ
  • 铜币119枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1015回复:1

一段保存编辑的代码帮我看看哪里有错

楼主#
更多 发布于:2006-08-23 13:21
<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>
喜欢0 评分0
gzstyxb
路人甲
路人甲
  • 注册日期2004-09-22
  • 发帖数358
  • QQ
  • 铜币1045枚
  • 威望0点
  • 贡献值0点
  • 银元0个
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>
由爱故生忧, 由爱故生怖. 若离于爱者, 无忧亦无怖.
举报 回复(0) 喜欢(0)     评分
游客

返回顶部