所有的目录树生成函数都可以设置条件, 而关联表的条件不过是关联列内容等于父表当前行关联列内容而已,所以这样就行了:
Dim tv As WinForm.TreeViewtv =e.Form.Controls("TreeView1")tv.BuildTree("原始名单", "名单年度|跟进业务|跟进状态","关联列 = '" & Tables("展会信息").Current("关联列") & "'")