|
阅读：1819回复：3
帮忙检查一下下面的的代码
<P> Dim rs As New MapObjects2.Recordset<BR> Dim lyr As New MapObjects2.MapLayer<BR> Set lyr = Map1.Layers(0)<BR> Set rs = lyr.Records<BR> Dim pt As New MapObjects2.Point<BR> rs.MoveFirst<BR> <BR> Do While Not rs.EOF<BR> rs.Edit<BR> Set pt = rs.Fields("shape").Value<BR> pt.Z = 100<BR> Set rs.Fields("shape").Value = pt<BR> rs.Update<BR> rs.MoveNext<BR> Loop<BR> rs.StopEditing<BR> DoEvents<BR> rs.MoveFirst<BR> Set pt = rs.Fields("shape").Value<BR> MsgBox pt.Z</P>
<P>为什么弹出的对话框中的值是“0”</P> <img src="images/post/smile/dvbbs/em12.gif" /> |
|
|
1楼#
发布于：2006-10-20 16:50
<P>MO里面好象没有z值概念吧？？你把Set pt = rs.Fields("shape").Value<BR>这个去掉再看看，还是0不？ </P>
<P>PS：你做这个要干什么？</P> |
|
|
|
2楼#
发布于：2006-10-20 09:43
<img src="images/post/smile/dvbbs/em02.gif" />
[此贴子已经被作者于2006-10-20 9:44:19编辑过]
|
|
|
|
3楼#
发布于：2006-10-20 08:54
<P>没人知道为什么吗？</P>
|
|
