this.HotTracking=.T.

this.HideSelection=.F.

this.ImageList = thisform.Images

this.LabelEdit= 1

this.lineStyle= 1
SELECT 部门表
go top

this.Nodes.Add(,,'N0','部门')

this.Nodes(1).Image=1

Scan &&遍历部门表中的所有记录，依次将它们添加到TreeView控件中
this.Nodes.Add('N'+ALLTRIM(STR(上级编号)),4,'N'+ALLTRIM(STR(部门编号)),ALLTRIM(名称))
this.Nodes(RECNO()+1).Image=1
Endscan
Local Bm
Bm=RECCOUNT()

SELECT 员工表

Scan

this.Nodes.Add('N'+ALLTRIM(STR(所在部门编号)),4,'ND'+ALLTRIM(STR(部门编号)),ALLTRIM(姓名))
this.Nodes(recno()+Bm+1).Images=2

Endscan
Locate For 所在部门编号=0
thisform.moderead

以上程序实现的功能是想在树型结构中添加部门表和各部门的员工,可是红色字体那句话在运行的时候出错,不知是什么原因,一运行它就提示：异常代码出自 Nodes:Index out of bounds ，能告诉我是什么原因吗？那位高手帮帮忙！谢谢

是不是想把图标加在记录前?
thisform.treeview1.imagelist=thisform.imagelist1

this.Nodes.Add(,,'N0','部门',1,1)

我是想给员工添加图标,部门的下级目录是员工,部门的图标已经添加了,是下面这段:
Scan &&遍历部门表中的所有记录，依次将它们添加到TreeView控件中
this.Nodes.Add('N'+ALLTRIM(STR(上级编号)),4,'N'+ALLTRIM(STR(部门编号)),ALLTRIM(名称))
this.Nodes(RECNO()+1).Image=1
而添加员工的图标是
Scan

this.Nodes.Add('N'+ALLTRIM(STR(所在部门编号)),4,'ND'+ALLTRIM(STR(部门编号)),ALLTRIM(姓名)）
this.Nodes(recno()+Bm+1).Images=2
你可以看看下面,我想实现的功能是

--部门　　　　　　　
　—生产部
　　—员工小明
　　—员工小红
　—销售部
　　—员工陈东　　　（还有很多部门和员工在这里省略了）
想在员工小明的前面加图标，它的索引是２，用这句this.Nodes(recno()+Bm+1).Images=2 实现，但是出错