帮忙看看这个代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮忙看看这个代码

共有9352人关注过本帖树形打印复制链接主题：帮忙看看这个代码

kevin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：359 积分：3403 威望：0 精华：0 注册：2011/8/2 20:53:00

帮忙看看这个代码 发帖心情

Post By：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("\")

想将以上代码中，双击任意一个节点时，“自动增加行”的代码去掉不要了，其它的功能保持不变，