只能打开00，01，02，03的一级，二级，三级，四级目录，就是04，05，06的一级目录能打开，二级以下的目录不能打开啊，我用你说的tv_1.expanditem()函数试了一下，你能帮我看看一下以下代码：
一、在open()事件里编写的代码为：idrg_vertical[1] = tv_1
idrg_vertical[2] = lv_1

cb_new.enabled=false
cb_edit.enabled=false
cb_delete.enabled=false
cb_fresh.enabled=false
cb_print.enabled=false
cb_view.enabled=false

cb_bigpic.enabled=false
cb_bigpic.visible=false
cb_smallpic.enabled=false
cb_smallpic.visible=false
cb_list.enabled=false
cb_list.visible=false
cb_discri.enabled=false
cb_discri.visible=false
cb_arrange.enabled=false
//***********************

is_title = This.Title

//取得最大商品树级数
select max(clr_level) into :ii_maxlevel
from DB2ADMIN.SYS_CODELENRULE
where clr_tablename = 'PRODUCT';
ii_maxlevel=ii_maxlevel + 1

ids_data[1] = Create DataStore
ids_data[2] = Create DataStore
ids_data[3] = Create DataStore
ids_data[4] = Create DataStore
ids_data[5] = Create DataStore
ids_data[1].DataObject = "d_pro_class"
ids_data[2].DataObject = "d_pro_class"
ids_data[3].DataObject = "d_pro_class"
ids_data[4].DataObject = "d_pro_class"
ids_data[5].DataObject = "d_pro"
ids_data[1].SetTransObject(SQLCA)
ids_data[2].SetTransObject(SQLCA)
ids_data[3].SetTransObject(SQLCA)
ids_data[4].SetTransObject(SQLCA)
ids_data[5].SetTransObject(SQLCA)

This.Post Event ue_populate()

二、在ue_populate()事件里编写的代码为：
Long ll_Root
TreeViewItem ltvi_Root

// Add the root item
ltvi_Root.Label = "商品树"
ltvi_Root.PictureIndex = 1
ltvi_Root.SelectedPictureIndex = 1
ltvi_Root.Children = True
ll_Root = tv_1.InsertItemLast(0, ltvi_Root)
tv_1.ExpandItem(ll_Root)
tv_1.SelectItem(ll_Root)
我看看懂这些代码，你能帮我看看，为什么出现我说：“为什么“01”能够打开到二级、三级、四级目录，而“04”这里不能打开二级、三级、四级目录呢？为什么呢？”的问题吗？