以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  目录树出现重复？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56350)
--  作者：jswjyjf
--  发布时间：2014/9/3 15:19:00
--  目录树出现重复？

我有以下的目录树 当根目录超过10时 出现重复了

项目如下  麻烦帮我看一下

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:目录树(编码不动).foxdb
--  作者：有点甜
--  发布时间：2014/9/3 15:45:00
--  
 你想说什么？
--  作者：jswjyjf
--  发布时间：2014/9/3 16:49:00
--  
就是点击保存时 编码出现重复时 ，请帮我看一下
--  作者：Bin
--  发布时间：2014/9/3 16:55:00
--  
没发现重复啊
--  作者：有点甜
--  发布时间：2014/9/3 16:55:00
--  
以下是引用jswjyjf在2014-9-3 16:49:00的发言：
就是点击保存时 编码出现重复时 ，请帮我看一下

 

什么意思啊，怎么操作，怎么不对？
--  作者：有点甜
--  发布时间：2014/9/3 17:03:00
--  

 你说的是新增节点的时候？新增根节点代码

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim Index As Integer = 1
If trv.Nodes.count >= 1 Then
    Dim max As Integer = 0
    For Each tnd As WinForm.TreeNode In trv.nodes
        If max < val(tnd.Name) Then
            max = val(tnd.Name)
        End If
    Next
    Index = max + 1
End If
Dim nd As WinForm.TreeNode = trv.Nodes.Add(index,"新节点"& index)
trv.SelectedNode = nd
trv.Select
trv.BeginEdit
\'Dim btn As WinForm.Button = Forms("窗口1").Controls("Button3")
\'btn.PerformClick()