[求助]关于目录树输入问题的请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于目录树输入问题的请教

共有6660人关注过本帖树形打印复制链接主题：[求助]关于目录树输入问题的请教

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/24 16:46:00 [显示全部帖子]

应该是可以的。

对应的删除目录树的节点？

移除节点 http://www.foxtable.com/help/topics/0890.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/24 17:08:00 [显示全部帖子]

以下是引用syzsyk在2014-6-24 17:05:00的发言：
甜老师，删除目录树的节点，目录树窗口再次打开时，这个节点还会出现吧？

怎样实现点击节点后，表A中对应的行隐藏，再次打开目录树这个节点就应该不会出现了。不知如何实现？

换一种思路，你用一个变量记录隐藏的行的_Identify，在生成目录树的时候，根据这个变量去控制生成BuildTree是可以设置条件的

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/24 17:08:00 [显示全部帖子]

实在不行，你就上传例子吧。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/24 18:18:00 [显示全部帖子]

如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/24 19:21:00 [显示全部帖子]

以下是引用syzsyk在2014-6-24 18:33:00的发言：
甜老师，怎么没效？

你生成树的代码写在了AfterLoad事件，只有在窗口重新打开的时候才会重新生成树的。

你应该把代码写到 DropDownOpened 事件

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/25 9:06:00 [显示全部帖子]

以下是引用syzsyk在2014-6-25 0:04:00的发言：

可以了，谢谢甜老师。但有一个问题，这个行内容没有输完，被删除了，如果再想输入，目录树就不会再显示要选的内容了，这怎么办？

你去看一下treeview的代码，有一句 idxs &= xxx 的。

你可以加入一个保存按钮，点击保存的时候再执行 idxs &= xxx

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/25 10:48:00 [显示全部帖子]

如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/25 19:17:00 [显示全部帖子]

哦，全局代码那里错了，改了一下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1 (6).foxdb

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/9 19:35:00 [显示全部帖子]

如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目xg.foxdb

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/10 11:54:00 [显示全部帖子]

打开代码

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("表A","姓名|联系方式","_Identify not in (" & idxs.TrimEnd(",") & ")")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 1 Then
        nd.Text &= "(" & nd.DataRow("数量") - DataTables("表B").Compute("sum(数量)", "姓名 = '" & nd.DataRow("姓名") & "'") & ")"
    End If
Next

下一主题 >> << 上一主题

总数 16 1 2 下一页

主题：[求助]关于目录树输入问题的请教