Tree窗口的AfterLoad事件改为:
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")trv.BuildTree("商品出库","商品类别|商品名称","出库日期 = #" & Tables("商品退货").Current("出库日期") & "#")