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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]新增目录树节点

共有3175人关注过本帖树形打印复制链接主题：[求助]新增目录树节点

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/11/13 10:17:00 [显示全部帖子]

子节点赋值的时候把所有信息都带上。

        Dim dr As DataRow
        dr = DataTables("目录树_Table3").AddNew()
        dr("项目") = Tables("目录树_Table1").Current("项目")
        dr("目录类别") = Tables("目录树_Table1").Current("目录类别")
        dr("目录名称") = Tables("目录树_Table2").Current("目录名称")
        dr("子优先级") = Tables("目录树_Table1").Current("子优先级")
        dr("规格型号") = Val
        dr.save()

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/11/13 11:14:00 [显示全部帖子]

以下是引用苏州老街在2016/11/13 10:31:00的发言：
老师，这段代码应该放在那里？

增加子节点的按钮。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/11/13 11:44:00 [显示全部帖子]

表1的CurrentChanged事件，写代码

If e.Table.Current Is Nothing Then '如果Current为Nothing
Tables("目录树_Table2").Filter = "[_Identify] is null"
Else
Tables("目录树_Table2").Filter = "[项目] = '" & Forms("目录树").Controls("ComboBox1").Value & "' And [目录类别] = '" & e.Table.Current("目录类别") & "' And [目录名称] Is Not Null and 规格型号 is null"
End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/11/13 14:23:00 [显示全部帖子]

以下是引用苏州老街在2016/11/13 11:54:00的发言：
老师，上面代码设置在窗口Table1窗口表Table3就不显示数据。

[此贴子已经被作者于2016/11/13 14:04:26编辑过]

我测试没问题。Table1是控制table2的，table2是控制table3的。

你试试重新添加内容。

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

主题：[求助]新增目录树节点