单元格设置加载树时如何设置加载条件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用土佛在2017/12/5 21:59:00的发言：
各位老师好，我有一段在单元格中设置加载树代码，希望放到项目事件 AfterOpenProject中，同时还希望点刷新按钮时能实时刷新，在这里，我知道 e.row不属于AfterOpenProject，但放在这里是为了说明我希望按此条件生成加载树，所以，请问各位大师，这个代码该如何变通，谢谢！

AfterOpenProject事件

Dim cmd6 As New SQLCommand

cmd6.CommandText = "select distinct [DNP编码],DNP生产批次,同批次正品库存M,同批次次品库存M form {DNP仓库出入明细}"

vars("dt6") = cmd6.ExecuteReader()

表格prepareEdit事件

If e.Col.name = "DNP生产批次" Then
    Dim tb6 As New DropTreeBuilder
    tb6.SourceTable = vars("dt6")
    tb6.TreeCols = "DNP生产批次|同批次正品库存M|同批次次品库存M"
    tb6.SourceCols = "DNP生产批次"
    tb6.ReceiveCols = "DNP生产批次"
    tb6.TreeFilter = "[DNP编码] = '" & e.Row("DNP编码") & "' And [同批次正品库存M]>0"
    e.Col.DropTree = tb6.Build()
End If

主题：单元格设置加载树时如何设置加载条件