如下写
Dim dj As WinForm.TreeView = e.Form.Controls("单据查询菜单")dj.BuildTree("表A","字段A|字段B","[字段C] LIKE '*" & User.Name & "*'")