treeview控件怎么和一个表相关联呢？

[mailguoyy]

treeview控件怎么和一个表相关联呢？

[boyliulang]

用数据存储可以实现，先建立一个数据窗口，然后设置数据存储，读取数据添加到treeview。
给你一个例子:
treeviewitem ltvi_Sub1,ltvi_Sub2
long ll_handle2,ll_row1,ll_count1,ll_count2,ll_curr_id
n_ds lds_sub1,lds_sub2
string ls_curr_department_name
long ll_handle1, ll_root

ll_Root = this.FindItem(RootTreeItem!,0)
IF ll_Root > 0 THEN
this.DeleteItem(ll_Root)
END IF

tv_1.InsertItemFirst ( 0, 'Ö÷¹Ü²¿ÃÅ', 1)

lds_sub1 = Create n_ds
lds_sub1.DataObject = 'd_sys_popedom_tv2'
lds_sub1.SetTransObject(SQLCA)

lds_sub2 = Create n_ds
lds_sub2.DataObject = 'd_sys_popedom_tv3'
lds_sub2.SetTransObject(SQLCA)

ll_count1=lds_sub1.retrieve()
for ll_row1=1 to ll_count1 step 1
ls_curr_department_name=trim(lds_sub1.object.vc_department_name[ll_row1])
ll_curr_id=long(lds_sub1.object.n_department_pk[ll_row1])
ltvi_Sub1.Label = ls_curr_department_name
ltvi_Sub1.data = ll_curr_id
ll_count2=lds_sub2.retrieve(ll_curr_id)
if ll_count2>0 then
ltvi_Sub1.Children = True
ltvi_Sub1.PictureIndex = 1
ltvi_Sub1.SelectedPictureIndex = 1
else
ltvi_Sub1.Children = false
ltvi_Sub1.PictureIndex = 1
ltvi_Sub1.SelectedPictureIndex = 2
end if
ll_handle2=this.InsertItemlast(1,ltvi_Sub1)
next

destroy lds_sub1
destroy lds_sub2

this.ExpandItem(1)

[bomber2001]

遍历.......