我现在有一个类别表m_kind,这个表的资料如下：
字段 m_kind
数据 A
B
C
然后还有一个子表c_kind
m_kind表中的每一类又分为几小类，存在c_kind中，资料如下：（实际情况可能是在c_kind下面还有更小的分类）
字段 m_kind c_kind
A a
A b
A c
B a
B e
C m
C w
我想用TREEVIEW控件显示如下：
A
a
b
c
B
a
e
C
m
w
请问这样怎么做，
哪位可以发个例子给我吗？谢谢。
------解决方案--------------------
string m1,m2,m3,m4,m5,m6,object_name
long n,i,k
int l1,l2,l3,l4,l5,l6,m
//
//datastore dt_area
//dt_area=create datastore
//dt_area.dataobject="d_area"
//
//
treeviewitem item_area,item_area2
long newitem1,newitem2,newitem3,newitem4,newitem5,new,item6
//long rootitem
dw_2.settransobject(sqlca)
m=dw_2.retrieve()
item_area.label=object_name
item_area.data="0"
item_area.pictureindex=1
item_area.SelectedPictureIndex=4
item_area.children=true
tv_1.insertitemlast(0,item_area)
for l1=1 to m
m1=dw_2.object.data[l1,1]
// st_2.text=m1
if dw_2.object.data[l1,3]="0" and dw_2.object.data[l1,4]=1 then
item_area.label=dw_2.object.data[l1,2]
item_area.data=dw_2.object.data[l1,1]
item_area.pictureindex=1
item_area.SelectedPictureIndex=4
item_area.children=true
newitem1=tv_1.insertitemlast(1,item_area)
// end if
for l2=1 to m
m2=dw_2.object.data[l2,1]
if dw_2.object.data[l2,3]=m1 and dw_2.object.data[l2,4]=1 then
item_area.label=dw_2.object.data[l2,2]
item_area.data=dw_2.object.data[l2,1]
item_area.pictureindex=1
item_area.SelectedPictureIndex=4
// if dw_2.object.data[i,5]<>"" then
// item_area.children=false
// item_area.pictureindex=2
//
// end if
newitem2=tv_1.insertitemlast(newitem1,item_area)
for l3=1 to m
m3=dw_2.object.data[l3,1]
if dw_2.object.data[l3,3]=m2 and dw_2.object.data[l3,4]=1 then
item_area.data=dw_2.object.data[l3,1]
item_area.label=dw_2.object.data[l3,2]
item_area.pictureindex=1
item_area.SelectedPictureIndex=4
item_area.children=true
newitem3=tv_1.insertitemlast(newitem2,item_area)
for l4=1 to m
m4=dw_2.object.data[l4,1]
if dw_2.object.data[l4,3]=m3 and dw_2.object.data[l4,4]=1 then
item_area.data=dw_2.object.data[l4,1]
item_area.label=dw_2.object.data[l4,2]
item_area.pictureindex=2
item_area.SelectedPictureIndex=4
item_area.children=true
newitem4=tv_1.insertitemlast(newitem3,item_area)
for l5=1 to m
m5=dw_2.object.data[l5,1]
if dw_2.object.data[l5,3]=m4 and dw_2.object.data[l5,4]=1 then
item_area.data=dw_2.object.data[l5,1]
item_area.label=dw_2.object.data[l5,2]
item_area.pictureindex=2
item_area.SelectedPictureIndex=4
item_area.children=false
newitem5=tv_1.insertitemlast(newitem4,item_area)
end if
next
end if
next
end if
next
end if
next
end if
next
这是一个7层的
------解决方案--------------------