被treeview的问题搞的一筹莫展

[pbman88]

如图所示，展开树的时候，老是重复加载5、6次项目，到底怎么回事啊？

Itempopulate事件：
TreeViewItem ltvi_item
integer li_rows, li_level, li_Cnt
long li_cnt1, li_cnt2
li_level=ltvi_item.level
if li_level<1 or li_level>3 then return
CHOOSE CASE li_level
CASE 1
a2=FindItem(RootTreeItem!,0)
if GetItem(a2,ltvi_item)=-1 then return
ds_dq=Create DataStore
ds_dq.DataObject="d_zl_dq"
ds_dq.SetTransObject(SQLCA)
ds_dq.retrieve()
ltvi_item.pictureIndex=2
ltvi_item.SelectedpictureIndex=2
ltvi_item.children=true
li_cnt1=ds_dq.rowcount()
For li_x=1 To li_cnt1
ltvi_item.label=ds_dq.Object.dq[li_x]
ltvi_item.data=ds_dq.Object.dq[li_x]
tv_1.InsertItemLast(a2, ltvi_item)
Next
END CHOOSE

刷新treeview事件（uf_flash_tree）：
tv_1.deleteitem(0)
Itv_Item.label = "地区"
Itv_Item.data = 0
Itv_Item.pictureindex = 3
Itv_Item.selectedpictureindex = 3
Itv_Item.children = True
ll_root=tv_1.insertitemlast(0,Itv_Item)
tv_1.SelectItem(1)
tv_1.SetFocus()
tv_1.ExpandAll(ll_root)

[WorldMobile]

应该是代码的问题,建议你单步跟踪一下你的代码,这样比较容易找到问题

[lztqy]

建议下载实例看下，例如下面这个： http://download.csdn.net/detail/liubocy/781489