mo+vb编程问题

<P> <FONT size=3><b>我用vb加载图层文件是编了一个程序：</b></FONT></P>
<P><FONT size=3><b>private sub form1_load()</b></FONT></P>
<P><FONT size=3><b>dim dc as new dataconnection</b></FONT></P>
<P><FONT size=3><b>dim layer as maplayer</b></FONT></P>
<P><FONT size=3><b>dc.database=app.path</b></FONT></P>
<P><FONT size=3><b>if not dc.connect then</b></FONT></P>
<P><FONT size=3><b>msg "在指定文件夹下没找到图层数据文件"</b></FONT></P>
<P><FONT size=3><b>end</b></FONT></P>
<P><FONT size=3><b>end if</b></FONT></P>
<P><FONT size=3><b>set layer=new maplayer</b></FONT></P>
<P><FONT size=3><b>set layer.geodataset=dc.findgeodataset("states")</b></FONT></P>
<P><FONT size=3><b>map1.layers.add layer</b></FONT></P>
<P><FONT size=3><b>set layer.geodataset=dc.findgeodataset("rivers")</b></FONT></P>
<P><FONT size=3><b>map1.layers.add layer</b></FONT></P>
<P><FONT size=3><b>map1.refresh</b></FONT></P>
<P><FONT size=3><b>end sub</b></FONT></P>
<P><FONT size=3><b>但是运行时出了问题，说layer.geodataset无法读取只写特性，我是新手，不知道问题在哪里，请帮帮忙，好吗，谢谢</b></FONT></P>
<P><FONT size=3><b>还有本站的ftp怎么老是连不上啊，是不是改用户名和密码了，还是有什么限制啊？</b></FONT></P><img src="images/post/smile/dvbbs/em12.gif" />

这个在mo自带的例子里就有很多，你可以查下了

<P><a href="http://www.esri.com/" target="_blank" >www.esri.com</A>是不是国外网啊，我们校园网上好像上不去啊，所以我下不到mapobject2.3版的，我现在用的是2.0版的，请问什么地方可以下到啊，本站的ftp也上不去啊</P><img src="images/post/smile/dvbbs/em02.gif" />

<P>我看了例子，但是还是不明白</P><P>高手请指点</P><img src="images/post/smile/dvbbs/em02.gif" />

<P>这样写试一下</P><P><FONT size=3><B>set layer=new maplayer</B></FONT></P><P><FONT size=3><B>set layer.geodataset=dc.findgeodataset("states")</B></FONT></P><P><FONT size=3><B>map1.layers.add layer</B></FONT></P><P><FONT size=3><B>set layer=new maplayer   '''''''''''''''''''''''''''加上这句</B></FONT></P><P><FONT size=3><B>set layer.geodataset=dc.findgeodataset("rivers")</B></FONT></P><P><FONT size=3><B>map1.layers.add layer</B></FONT></P>

<P>还是不行啊</P><P>后来我改了一下子</P><P>dim dc as new mapobjects2.dataconnection</P><P>dim layer as maplayer</P><P>dc.database=app.path ; "mexico"</P><P>if not dc.connect then end</P><P>set layer=new maplayer</P><P>set layer.geodataset=dc.findgeodataset("states")</P><P>map1.layers.add layer</P><P>set layer=new maplayer</P><P>set layer.geodataset=dc.findgeodataset("rivers")</P><P>map1.layers.add layer</P><P>map1.refresh</P><P>高手请指点</P><img src="images/post/smile/dvbbs/em02.gif" />

我也出过这种问题,后来查一下是图层数据文件的问题.

<P>您的代码有两个地方需要更正：</P>
<P>1.</P>
<P>dc.database=app.path ; "mexico" 改为 dc.database=app.path ; "\mexico\" </P>
<P>2.</P>
<P>添加Dim gst As MapObjects.GeoDataset</P>
<P>再将"gst"替代所有的"Layer.GeoDataset"</P>
<P>最后添加Layer.GeoDataset = gst</P>

dc.database=app.path中的add.path改为CurDir即可

dc.database=app.path中的app.path改为CurDir即可