怎样将各个点的坐标添加地点的属性表

怎样将各个点的坐标添加地点的属性表,请指教。

toolbox

想将点的坐标添加到属性表，使用Add XY coordinate工具找不到需要添加坐标的数据类，在ArcMap里面添加了xy两个字段，然后打开字段计算器但不知如何操作，请指教。

<P><STRONG>可以看看Field Calculator的帮助了,如果你有AO开发的经验,那么还比较简单</STRONG></P>
<P><STRONG>相关帖子和操作方法:</STRONG></P>
<P><STRONG>使用Field Calculator把度 分 妙字符型字段转为十进制度的数值型字段</STRONG></P>
<P><a href="http://www.gisempire.com/bbs/dispbbs.asp?BoardID=41;ID=43855;replyID=;skin=1" target="_blank" >http://www.gisempire.com/bbs/dispbbs.asp?BoardID=41;ID=43855;replyID=;skin=1</A></P>

以上相关帖子我看过，谢谢指教，能否按“使用Field Calculator把度 分 妙字符型字段转为十进制度的数值型字段”解释方法解释一下将点的坐标添加到属性表，谢谢。
<TABLE fixed; WORD-BREAK: break-all" height="85%" width="95%" align=center border=0>

<TR>
<TD 9pt; LINE-HEIGHT: 12pt" vAlign=top width=* height="100%"><FONT size=3></FONT></TD></TR></TABLE>

<P>为什么不看帮助?已经讲得非常明白了!</P>
<P>++++++++++++++++++</P>
<P>How to use Visual Basic code to calculate fields based on area, length, perimeter, etc.</P>
<P>1. These code examples return a value of type 'double', so use them to calculate either an existing field of type 'double' or a new field of type 'double' you've added to the table. For example, you can use these to update the existing area, length or perimeter field you may find in a shapefile's attribute table. <BR>2. Check Advanced. You'll see two empty text entry boxes.<BR>3. Enter one of these four line code examples into the topmost box, the one labeled 'Pre-Logic VBA Script Code'. Tip: you can select the code in this help topic, right-click and choose Copy, and then paste it into the box.</P>
<P>To calculate area:</P>
<P>Dim Output as double<BR>Dim pArea as Iarea<BR>Set pArea = [shape]<BR>Output = pArea.area</P>
<P>To calculate length or perimeter (depending on whether the features are lines or polygons):</P>
<P>Dim Output as double<BR>Dim pCurve as ICurve<BR>Set pCurve = [shape]<BR>Output = pCurve.Length</P>
<P>To add the x coordinate of points:</P>
<P>Dim Output As Double<BR>Dim pPoint As IPoint<BR>Set pPoint = [Shape]<BR>Output = pPoint.X</P>
<P>To add the x coordinate of polygon centroids:</P>
<P>Dim Output As Double<BR>Dim pArea As IArea<BR>Set pArea = [Shape]</P>
<P>Output = pArea.Centroid.X</P>
<P>4. Type the variable Output into the second text box. Do not enclose it in quotes or brackets.</P>
<P>5.  Click OK</P>

<P>请看一下代码错到哪里，单击确定提示错误。</P>
<P><a href="http://sdgts.ik8.com/index.files/shiruzuobiao.jpg" target="_blank" >http://sdgts.ik8.com/index.files/shiruzuobiao.jpg</A></P>