|
阅读：1915回复：3
程序请教
dim oPoint as mapobjects2.point
UserSets(0).MoveFirst If UserSets(0).Fields("shape").value = moPoint Then //在这句总是提示对象不支持此属性或方法，有时候提示类型不匹配, Set oPoint = UserSets(0).Fields("shape").value End If |
|
|
1楼#
发布于：2003-10-14 10:50
If UserSets(0).Fields("shape").value = moPoint Then //在这句总是提示对象不支持此属性或方法，有时候提示类型不匹配, 改为： If UserSets(0).Fields("Shape").Type = moLine then 看看能行吗 |
|
|
2楼#
发布于：2003-10-14 10:58
太好了,通过了,太谢谢了,斑竹!但为什么?
|
|
|
3楼#
发布于：2003-10-14 11:08
看看帮助啦，value应该是获取值，不是类型
|
|
