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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有7780人关注过本帖树形打印复制链接主题：[求助]

admissions

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

加好友

发短信

等级：婴狐帖子：66 积分：564 威望：0 精华：0 注册：2013/2/2 21:24:00

Post By：2014/11/11 20:52:00 [只看该作者]

现在明细里面只加载勾选的内容了，但是出库里面那么没有勾选的内容都不见了，如果需要选择的时候再重新增加吗

admissions

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

加好友

发短信

等级：婴狐帖子：66 积分：564 威望：0 精华：0 注册：2013/2/2 21:24:00

Post By：2014/11/11 20:53:00 [只看该作者]

延迟天数代码效果非常明显，谢谢田田老师

admissions

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

加好友

发短信

等级：婴狐帖子：66 积分：564 威望：0 精华：0 注册：2013/2/2 21:24:00

Post By：2014/11/11 20:58:00 [只看该作者]

If e.DataCol.Name = "出库单位" Orelse e.DataCol.Name = "供应商" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[出库单位] = '" & e.DataRow("出库单位") & "' And [供应商] = '" & e.DataRow("供应商") & "'"
    dr = DataTables("出库").Find(Filter) '在出库表查找所输入出库单位和供应商的行
End If

[此贴子已经被作者于2014-11-11 20:58:06编辑过]

有点甜

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

加好友

发短信

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

Post By：2014/11/11 21:09:00 [只看该作者]

问题一：去掉原来的加载代码，在maintablechanged事件加入代码

If MainTable.Name = "供销明细" Then
    Dim tb As New DropTreeBuilder
    tb.SourceTable = DataTables("出库") '指定目录树表
    tb.TreeCols = "出库单位|供应商" '指定用于生成目录树的列
    tb.SourceCols = "出库单位|供应商" '指定数据来源列
    tb.ReceiveCols = "出库单位|供应商" '指定数据接收列
    tb.TreeFilter = "状态 = true"
    Tables("供销明细").Cols("出库单位").DropTree = tb.Build()
End If