以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮忙看看这个代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12679)
--  作者：kevin
--  发布时间：2011/9/11 11:57:00
--  帮忙看看这个代码

Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim fts()As String
Dim n As Integer
Dim s As String
fts = nd.FullPath.Split("\\")
Dim dr As DataRow
dr = DataTables("产品").AddNew()
dr("名称") = fts(fts.length-1)
For Each ft As String In fts
    s = s & left(nd.name,3*(n+1)) & "\\"

n = n + 1
Next
dr("ID") =s.trim("\\")

 

想将以上代码中，双击任意一个节点时，“自动增加行”的代码去掉不要了，其它的功能保持不变，
--  作者：狐狸爸爸
--  发布时间：2011/9/11 12:22:00
--  
其实，上面代码代码只有一个功能，就是增加行。
--  作者：e-png
--  发布时间：2011/9/11 13:50:00
--  

其实 AddNew() 只是指定新增的行，你可以指定其他任意行啊。