我要在treeview 控件中使用下表

 
 

我在表单的init()事件中的代码是：
If Type("thisform.oletree") <> "O" Or Isnull(Thisform.oletree)
    Return .F.
Endif
ot = Thisform.oletree.nodes
ot.Clear

Select ias_dbf

Go Top
Scan
    If Alltrim(Parent)="0_"
        ot.Add(,0,Alltrim(Key),Alltrim(Name),0)
    Else
        ot.Add(Alltrim(Parent),4,Alltrim(Key),Alltrim(Name),0)
    Endif
Endscan
执行时提示错误如下图：


 

请高手帮我！！！！！！！！！！！！