6005831982
路人甲
路人甲
  • 注册日期2004-09-18
  • 发帖数80
  • QQ
  • 铜币258枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1678回复:2

二问— treeview (各位大虾,能帮忙的高手请进)

楼主#
更多 发布于:2004-10-20 10:38
<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>
喜欢0 评分0
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15947
  • QQ554730525
  • 铜币25339枚
  • 威望15364点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
1楼#
发布于:2004-10-20 15:44
<P>接个你可以慢慢调试了,看看每个参数的含义吧</P><P>这里没时间帮你写了</P><P>
 </P>
举报 回复(0) 喜欢(0)     评分
6005831982
路人甲
路人甲
  • 注册日期2004-09-18
  • 发帖数80
  • QQ
  • 铜币258枚
  • 威望0点
  • 贡献值0点
  • 银元0个
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>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部