数据结构如下:
创建表[tbtree](
[id] [varchar](4)整理不为null,
[context] [nvarchar](50)null,
[parendid] [varchar](4)null,
约束[pk_tbtree]主键群集
((
[ID]
)在[初级]
)在[初级]
代码如下:
lprocedure tform1.ReadTree(tnode:ttreenode; fvalue:string); lvar li:整数; l flist:tstringlist; l flist1:tstringlist; l str:string; lbegin l qrytree.close; l qrytree.sql.clear; l qrytree.sql.add('select parentid,id,tbtree中的上下文'); l qrytree.sql.add('where isnull(parendId,''''''')='); l qrytree.sql.add(''''+fvalue+''''); l qrytree.open; l qrytree.first; l flist:= tstringlist.create; l flist1:= tstringlist.create; l d qrytree.eof do l oging l flist.add(trim(qrytree.fieldbyname('context')。asstring)); l flist1.add(qrytree.fieldbyname('id')。asstring); l qrytree.next; l结束; l对于i:= 0 to flist.count-1 do l begin ls ls:= flist1.strings [i]; l str:= flist.strings [i]; l snode:= treeview1.items.addchild(tnode,str); l readtree(Snode,s); l结束; l flist。 l flist1.free;借;