直接设置筛选条件
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("订单", "产品|客户|雇员","产品 not in ('PD01', 'PD02')")