長行，I，cur_len，p
字符串mycode，str，myname，mylabel
長柄_當前，h1
樹形視圖項目
treeviewitem新項目
h 1 = TV _ 1 . finditem(currenttreeitem！,0)
handle _ current = TV _ 1 . finditem(childtreeitem！，h1)
if handle _ current & lt那麽0
tv_1.getitem(h1，item)
mylabel=item.label
p=pos(mylabel，"-")
mycode=mid(mylabel，1，p - 1)
cur_len=len(mycode)
str="id like'"+mycode+" " " "
dw_1.setfilter(str)
dw_1.filter()
rows=dw_1.rowcount()
對於i=1到行
my code = dw _ 1 . getitemstring(I，“否”)
my name = dw _ 1 . getitemstring(I，" name ")
如果len(mycode)=cur_len+2，則
new item . label = my code+"-"+my name
new item . pictureindex =(cur _ len+2)/2+1
new item . selectedpictureindex =(cur _ len+2)/2+2
TV _ 1 . insert item last(h 1，newitem)
如果…就會結束
然後
如果…就會結束
tv_1.expanditem(h1)
返回0
然後創建壹個數據窗口，其中數據庫有兩個字段，no和name。
無字段的例子:01的第壹層，0102的第壹層的第二個節點，0201的第二層的第壹個節點。
主窗口的OPEN事件:(雙擊窗口中的任意位置，但不要單擊控件)
TV _ 1。Inserttemlast (0，"根節點"，1)
dw _ 1 . settransobject(sqlca)
dw_1.retrieve()