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

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

        Dim cmd6 As New SQLCommand

        Dim dt6 As DataTable

        cmd6.C

        cmd6.CommandText = "select distinct DNP生产批次,同批次正品库存M,同批次次品库存M  form  {DNP仓库出入明细} where [DNP编码] = '" & e.Row("DNP编码") & "'And [同批次正品库存M]>0"

        dt6 = cmd6.ExecuteReader()

        Dim tb6 As New DropTreeBuilder

        tb6.SourceTable = dt6

        tb6.TreeCols = "DNP生产批次|同批次正品库存M|同批次次品库存M"

        tb6.SourceCols = "DNP生产批次" 

        tb6.ReceiveCols = "DNP生产批次"

        Tables("出货规划").Cols("DNP生产批次").DropTree = tb6.Build()