在TREEVIEW下面，如果當前項沒有子項，如何在當前項itempopulate事件中下面插入子項啊？
請高手指點！
謝謝了！
uj5u.com熱心網友回復：
這個估計得先寫第一層節點。uj5u.com熱心網友回復：
children屬性先設定成trueuj5u.com熱心網友回復：
第一層節點是先寫的。想在itempopulate事件中，判斷如何當前項為LEVEL1則加入第二層節點。LEVEL2則加入第三層節點。不知道該怎么實作。
請高手指點下，謝謝了。
下面是我的代碼
treeviewitem tv_item
datastore ds1,ds2
treeviewitem tvi
int li,li2,i1,i2
long h1,h2,h3,h4,h5,h6
long ll_tvi
int li_rvret
ds1 = create datastore
ds1.dataobject = "dw_sbcj1"
ds1.settransobject( sqlca)
ds2 = create datastore
ds2.dataobject = "dw_sbcj2"
ds2.settransobject( sqlca)
//level = 1
if tree_tv1.level = 1 then
li = ds1.retrieve( )
ds1.setsort( 'id a')
ds1.sort( )
for i1 =1 to li
tvi.data = ds1.getitemstring( i1,"id")
tvi.label =ds1.getitemstring( i1,"id_name")
tvi.pictureindex = 0
tvi.selectedpictureindex = 0
tvi.children = true
h1 = tv_1.insertitemlast(1,tvi)
next
end if
//level = 2
if tree_tv1.level = 2 then
tvi.data = tree_tv1.id
tvi.label = tree_tv1.label
tvi.level = tree_tv1.level
li2 = ds2.retrieve( tvi.data )
ds2.setsort( 'id a')
ds2.sort( )
ll_tvi = tv_1.findItem(childtreeitem!,0)
tv_1.expanditem(ll_tvi)
for i2 =1 to li2
tvi.data = ds2.getitemstring( i2,"id")
tvi.label =ds2.getitemstring( i2,"id_name")
tvi.pictureindex = 0
tvi.selectedpictureindex = 0
tvi.children = true
h2 = tv_1.insertitemlast(ll_tvi,tvi)
next
end if
DESTROY ds1
DESTROY ds2
如果是LEVEL2時，還是插在LEVEL1下面。
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/86517.html
標籤：控件與界面
上一篇：在PB循環中，如何對公式賦值?
下一篇：怎么用PB7.0做報表