ESRI ArcGIS应用与开发 ArcEngine实现属性编辑||做专业的GIS技术交流论坛

gis3 路人甲注册日期2004-08-27 发帖数5 QQ 铜币193枚威望0点贡献值0点银元0个加关注写私信	阅读：5089回复：11 ArcEngine实现属性编辑楼主^# 更多只看楼主倒序阅读发布于：2006-04-17 10:27 <P>请问斑竹和各位大侠在ArcEngine中如何实现属性编辑，如添加字段，删除字段，修改值等功能！小弟在这先谢过了！</P>
	喜欢0 评分0 最新喜欢：举报回复

flycui83 路人甲注册日期2005-03-18 发帖数46 QQ 铜币247枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2006-04-17 10:52 ifieldEditor
	举报回复(0) 喜欢(0) 评分

dan800913 路人甲注册日期2005-01-10 发帖数102 QQ 铜币617枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2006-04-17 12:10 那如何实现属性表的显示呢？我知道可以自己编程制表读取字段以及属性值，但是却不能够建立属性表与图形之间的连接，这个问题我思考了较长时间，有没有那位愿意共同讨论一下？我的泡泡账号：apple_dan0913
	举报回复(0) 喜欢(0) 评分

gis3 路人甲注册日期2004-08-27 发帖数5 QQ 铜币193枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2006-04-17 13:31 <P>谢谢二楼的大侠！！</P><img src="images/post/smile/dvbbs/em02.gif" />
	举报回复(0) 喜欢(0) 评分

JIALAN 路人甲注册日期2005-12-20 发帖数24 QQ 铜币193枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2006-04-18 20:33 <P>你只要做好了属性表的显示就完成了九成了，属性表和图形的连接是非常简单的，通过OID进行连接。</P>
	举报回复(0) 喜欢(0) 评分

echodjx 路人甲注册日期2004-06-06 发帖数37 QQ 铜币29枚威望0点贡献值0点银元0个加关注写私信	5楼^# 发布于：2006-04-29 17:01 如何显示属性表？请教了！
	举报回复(0) 喜欢(0) 评分

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

6楼^#

发布于：2006-04-29 19:10

<DIV class=quote>以下是引用dan800913在2006-4-17 12:10:20的发言： 那如何实现属性表的显示呢？我知道可以自己编程制表读取字段以及属性值，但是却不能够建立属性表与图形之间的连接，这个问题我思考了较长时间，有没有那位愿意共同讨论一下？我的泡泡账号：apple_dan0913</DIV>
可以使用feature的value属性来显示属性,定位只是一个显示要素的过程

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

yongzhi1984 路人甲注册日期2004-05-07 发帖数16 QQ 铜币176枚威望0点贡献值0点银元0个加关注写私信	7楼^# 发布于：2006-05-19 16:34 <P>请上面的高手能不能把全部的代码发出来！本人是新手！谢谢</P>
	举报回复(0) 喜欢(0) 评分

Christie72

路人甲

注册日期2004-07-22
发帖数92
QQ
铜币423枚
威望0点
贡献值0点
银元0个

加关注写私信

8楼^#

发布于：2006-05-20 05:51

最近也正在做，还没有全部解决，把代码贴上来，大家一起讨论讨论
添加字段：（还有问题）
下面帖子：”添加字段时，IfieldEdit为只读“中有代码。
修改值，已通过：
Private Function EditFeature(pFeatureClass As IFeatureClass) As Boolean
Dim pFeature As IFeature
Dim pFeatureCursor As IFeatureCursor
On Error GoTo ErrorHandler:
EditFeature = False
If (pFeatureClass Is Nothing) Then
Exit Function
End If
Set pFeatureCursor = pFeatureClass.Update(Nothing, False)
Set pFeature = pFeatureCursor.NextFeature
If (Not pFeature Is Nothing) Then
pFeature.Value(6) = "New Place"
pFeatureCursor.UpdateFeature pFeature
MsgBox ("修改成功")
EditFeature = True
Else
MsgBox ("修改失败")
End If
Exit Function
ErrorHandler:
MsgBox Err.Description
End Function
 
Private Function OpenFeatureClass() As IFeatureClass
Dim pMxDocument As IMxDocument
Dim pMap As IMap
Dim pFeatureLayer As IFeatureLayer
Dim pFeatureClass As IFeatureClass
On Error GoTo ErrorHandler:
Set OpenFeatureClass = Nothing
Set pMxDocument = ThisDocument
Set pMap = pMxDocument.FocusMap
If (pMap.LayerCount = 0) Then
MsgBox ("缺少数据")
Exit Function
End If
Set pFeatureLayer = pMap.Layer(0)
Set pFeatureClass = pFeatureLayer.FeatureClass
Set OpenFeatureClass = pFeatureClass
Exit Function
ErrorHandler:
MsgBox Err.Description
End Function
Private Sub UIButtonControl1_Click()
On Error GoTo ErrorHandler:
Dim pFeatureClass As IFeatureClass
Set pFeatureClass = OpenFeatureClass()
EditFeature pFeatureClass
Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub

举报回复喜欢评分

xxhhoddity

路人甲

注册日期2003-08-24
发帖数409
QQ
铜币1295枚
威望0点
贡献值0点
银元0个

加关注写私信

9楼^#

发布于：2006-05-23 10:17

为什么大家不看看ESRI的samples呢

GIS GSI IGS ISG SIG SGI

举报回复喜欢评分

您需要登录后才可以回帖，登录或者注册

ArcEngine实现属性编辑

最新喜欢：