以下是引用土佛在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