一段关于树的代码
在窗口的open()事件中已经生成根节点数据库表为“部门表(部门代码,部门名称,上级代码)”,dw_bm
在itempopulate()中写入以下代码,界面没有反应,请强人帮忙看看,谢谢
treeitem tv_bm,tv_item
int i,count
string bmname,bmdm,sjdm
datastore ds_bm
ds_bm=create datastore
ds_bm.dataobject="dw_bm"
ds_bm.settransobject(sqlca)
ds_bm.retrieve()
count=ds_bm.rowcount()
tv_1.setitem(handel,tv_item)
bmname=tv_item.label
for i=1 to count
if bmname=ds_bm.getitemstring(i,2) then
bmdm=ds_bm.getitemstring(i,1)
for j=1 to count
if dm=ds_bm.getitemstring(j,3) then
tv_bm.label=ds_bm.getitemstring(j,2)
tv_1.insetritemlast(handel,tv_bm)
end if
next
end if
next
tv_1.etredraw(true)
destroy ds_bm