阅读:1825回复:2
二问— treeview (各位大虾,能帮忙的高手请进)
<P>首先谢谢 总统 的关照,昨天我按照您的提示写了如下代码 (偶是新手)<IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em02.gif"><IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em02.gif"></P>
<P>结果显示的是N个同样名称的城市名(位于子结点上),55555555555(狂晕)<IMG src="http://www.gisempire.com/bbs/Skins/default/topicface/face999.gif"></P> <P>Set TreeView1.ImageList = Form1.ImageList2 'layer(0)既"城市"图层' Dim nodF As Node "城市"图层的Fields("NAME")既"城市名"的集合 Dim intI As Integer Set nodF = TreeView1.Nodes.Add(, , "L0", "索引") Set nodF = TreeView1.Nodes.Add(1, tvwChild, "L1", "城市", 1, 2) nodF.EnsureVisible</P> <P>Dim oTempRecs As MapObjects2.Recordset Set oTempRecs = Map1.Layers(0).Records Dim Recs As MapObjects2.Field oTempRecs.AutoFlush = False With oTempRecs Do While Not .EOF For Each Recs In Map1.Layers(0).Records.Fields If Recs.Name = "NAME" Then Set nodF = TreeView1.Nodes.Add("L1", tvwChild, , Recs.Value, 1, 2) End If Next Recs .MoveNext Loop End With</P> <P>第二段代码出了逻辑错误,请各位大虾指正,或给个能执行相同功能的代码<IMG src="http://www.gisempire.com/bbs/Skins/default/topicface/face994.gif"></P> <P>感激不禁啊..................<IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em12.gif"><IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em12.gif"><IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em12.gif"><IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em12.gif"><IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em12.gif"></P> |
|
1楼#
发布于:2004-10-20 15:44
<P>接个你可以慢慢调试了,看看每个参数的含义吧</P><P>这里没时间帮你写了</P><P>
</P> |
|
|
2楼#
发布于:2004-10-20 20:28
<P>哈哈,刚调试好,多谢关照</P><P><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face14.gif"><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face14.gif"><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face14.gif"><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face14.gif"><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face14.gif"><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face14.gif"><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face14.gif"></P>
|
|