为什么我改变SuperMap.selection点风格的代码不起作用?附代码

 If objRD.GetGeometry.Type = scgPoint Then<br>        objStyle.SymbolStyle = 1410   '天文点风格<br>        objStyle.SymbolSize = 70<br>        objStyle.PenColor = vbBlue<br>        objStyle.BrushBackColor = vbWhite<br>Else<br>        objStyle.PenStyle = 19  '点线风格<br>        objStyle.PenWidth = 10<br>        objStyle.PenColor = vbBlue<br>        objStyle.BrushBackColor = vbWhite<br>End If<br>Set frmSuperMap.SuperMap.selection.Style = objStyle<br> frmSuperMap.SuperMap.Refresh<br><br>代码很简单,但是无法达到预期的目的,代码运行的结果是线记录集可以顺利的实现风格的改变,但是点数据集则无法改变风格.代码跟踪进去,发现frmSuperMap.SuperMap.selection.Style.SymbolStyle的值在 frmSuperMap.SuperMap.Refresh前后由1410自动变为-1,<br>而frmSuperMap.SuperMap.selection.Style.SymbolSize自动由70变为20<br>不知是什么原因,请大家帮我分析下,谢谢了<br>

<P>顶</P>