我现在在treeview 中有一个现成的树,树中都是兄弟节点, 我现在需要按照一定的条件向这些节点添加孩子。比如,树结构为:
-00
-11
有一张表,它其中有一个字段为编号,现在要将编号00的所有记录的MC字段作为treeview中00节点的孩子,编号11的所有记录的MC字段作为treeview中11节点的孩子,怎么添加?
希望给出原代码,急盼!再线等待!马上给分!
-00
-11
有一张表,它其中有一个字段为编号,现在要将编号00的所有记录的MC字段作为treeview中00节点的孩子,编号11的所有记录的MC字段作为treeview中11节点的孩子,怎么添加?
希望给出原代码,急盼!再线等待!马上给分!
mynode:treenode;
i:integer;
begin
for i:=0 to treeview.itemcout-1 do
begin
if treeview.items[i]='11' then
begin
mynode:=treeview.items[i];
with adoquery1 do
begin
if active then close;
sql.clear;
sql.add('select * from yourtable where 编号='+#39+mynode.text+#39');
open;
while not eof then
begin
treeview.items.addchild(mynode,fieldbyname('mc').asstring);
next;
end;
end;
end;
end;
mynode:treenode;
i:integer;
begin
for i:=0 to treeview.itemcout-1 do
begin
mynode:=treeview.items[i];
with adoquery1 do
begin
if active then close;
sql.clear;
sql.add('select * from yourtable where 编号='+#39+mynode.text+#39');
open;
while not eof then
begin
treeview.items.addchild(mynode,fieldbyname('mc').asstring);
next;
end;
end;
end;
end;
mynode:treenode;
i:integer;
begin
try
mynode := TreeNode.create;
for i:=0 to treeview.itemcout-1 do
begin
mynode:=treeview.items[i];
with adoquery1 do
begin
if active then close;
sql.clear;
sql.add('select * from yourtable where 编号='+#39+mynode.text+#39');
open;
while not eof then
begin
treeview.items.addchild(mynode,fieldbyname('mc').asstring);
next;
end;
end;
end;
finally
mynode.free;
end;
end;
mynode:treenode;
i:integer;
begin
for i:=0 to treeview.itemcout-1 do begin
if treeview.items[i]='11' then begin
mynode:=treeview.items[i];
with adoquery1 do begin
if active then
close;
sql.clear;
sql.add('select * from yourtable where 编号='+#39+mynode.text+#39');
open;
while not eof then begin
treeview.items.addchild(mynode,fieldbyname('mc').asstring);
next;
end;
end;
end;
end;