也是1个树的问题,急等
我在tv_1的itempopulate中加入以下代码:
Int level, n, I
string parm1, parm2
Long ll_Parent
TreeViewItem tv_current
TreeViewItem tv_New
Getitem(handle, tv_Current)
level =tv_Current.Level
level =level+1
tv_New.PictureIndex=Level
tv_New.SelectedPictureIndex= 4
CHOOSE CASE level
CASE 2
tv_New.Children=True
parm1= tv_current.data
string sql
sql=dw_1.getSqlSelect()+"where BKE604='"+Parm1+"'"
dw_1.of_Retrieve(sql)
n =dw_1.rowcount()
FOR i=1 TO n
tv_New.label= dw_1.getItemString(i,"bke602")
tv_New.data= dw_1.getItemString(i,"bke601")
This.InsertItemLast(handle, tv_New)
next
case 3
tv_New.Children=false
parm1= tv_current.data
sql="select * from kezd where BKe604='"+Parm1+"'"
dw_1.of_Retrieve(sql)
n =dw_1.rowcount()
FOR i=1 TO n
tv_New.label= dw_1.getItemString(i,"bke602")
tv_New.data= dw_1.getItemString(i,"bke601")
This.InsertItemLast(handle, tv_New)
next
end choose
3层结构是能显示出来,但是如果我添加或删除一个目录的话,不会自动刷新,要关闭窗口后重新打开才可以,有没办法让其在添加后通过点击树实现即时刷新