员工档案表结构如下：部门、姓名、岗位、出生日期等。
在员工档案窗口中添加一个按钮，生成目录树，代码如下：
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("员工档案", "部门|岗位|姓名")
上述代码运行没有问题。考虑到代码的通用性，将上述代码改为函数TreeViewRefresh，代码如下：
Dim arg_Columns As String = Args(0) '目录树的数据列,用符号"|"隔开
Dim tv As WinForm.TreeView
tv =Forms.ActiveForm.Controls("TreeView1")
tv.BuildTree(CurrentTable.Name ,arg_Columns)
调用函数代码：Functions.Execute("TreeViewRefresh","部门|岗位|姓名")
运行时就出错，提示：未将对象引用设置到对象的实例！
请各位高手看一下如何解决？
此主题相关图片如下：2014-11-21_205033.png
[此贴子已经被作者于2014-11-22 9:01:54编辑过]
加好友 
发短信
Post By：2014/11/21 20:53:00 [只看该作者]
