PB实现TreeView多级分类检索（案例）

contructor事件：

long ll_row,i
TreeViewItem tv_new


//建立一个图标队列,供其中的TreeViewItem项引用,在这里建立主要是为了能够控制图标大小
//首先设定图标显示尺寸
This.PictureHeight=16
This.PictureWidth=16
//图标队列由4个图标构成,前3个用于标识医嘱类项目的级别,第4个用于标识项目的选中状态
This.AddPicture("DosEdit5! ")
This.AddPicture("custom023!")
This.AddPicture("custom036!")
This.AddPicture("Custom050!")


DataStore lds_dw  //定义为实例变量
lds_dw = Create DataStore
lds_dw.DataObject = 'dw_assets_directory'
lds_dw.SetTransObject( Sqlca )


lds_dw.SetFilter( "ass_uplevel = 0")
lds_dw.Filter()
lds_dw.ReTrieve()
ll_row = lds_dw.RowCount()


for i = 1 to ll_row
    tv_New.Label=lds_dw.GetItemString(i,'ass_name')
    tv_New.Data=lds_dw.GetItemNumber(i,'ass_no')
    tv_New.level = 1
    tv_New.PictureIndex=1
    tv_New.SelectedPictureIndex=4
    tv_New.Children=True
    This.InsertItemLast(0, tv_New)
next
Destroy lds_dw

Itempopulate事件：

long Level, n, i
any Parm1, Parm2, Parm3
Long ll_Parent
TreeViewItem tv_Current, tv_Parent, tv_New
//由句柄获得TreeViewItem项,存入变量tv_Current
GetItem(handle, tv_Current)
Level=tv_Current.Level+1
tv_New.PictureIndex=Level
tv_New.SelectedPictureIndex= 4 //自己设计图片此处可以等于Level
//根据展开级别,建立当前展开项目

DataStore lds_dw