[讨论]关于treeview的二级目录树的问题
关于treeview的二级目录树的问题
//定义变量
long ll_tempno1,ll_tempno2,ll_tvi
int i
string lxc
string tjp
//填充datawindow
connect using sqlca;
dw_1.settransobject(sqlca)
dw_1.retrieve()
disconnect using sqlca;
//填充TreeView
treeviewitem l_tvi
ll_tempno1=tv_1.insertitemfirst( 0, "系别", 1)
l_tvi.Expanded=true
connect using sqlca;
if(sqlca.sqldbcode<>0)then
messagebox("信息提示","数据库没有连接好！")
end if
declare cur1 cursor for
select distinct majoryno
from tong;
open cur1;
i=0
do while SQLCA.sqlcode = 0
fetch cur1 into :lxc;
l_tvi.label= lxc
l_tvi.data=1
ll_tempno2=tv_1.insertitemfirst(ll_tempno1, l_tvi)
i+=1
loop
tv_1.DeleteItem(i)
close cur1;
disconnect using sqlca;
我想在系别的下面再建一个二级的目录树是sno(学号) 也是在tong的表中获取 问一下该怎么改 注 majoryno为系别名
