with adoquery_shengfen do begin thisnode:=Treeview1.Items.GetFirstNode; while not adoquery_shengfen.Eof do begin department:=fieldbyname('shengfen').AsString; thisnode:=treeview1.Items.Add(thisnode,department); with adoquery_dq do begin first; while not adoquery_dq.Eof do begin treeview1.Items.AddChild(thisnode,fieldbyname('dq').AsString); next; end; end; next; end;我的代码 那里需要改进一些
begin
thisnode:=Treeview1.Items.GetFirstNode;
while not adoquery_shengfen.Eof do
begin
department:=fieldbyname('shengfen').AsString;
thisnode:=treeview1.Items.Add(thisnode,department);
with adoquery_dq do
begin
first;
while not adoquery_dq.Eof do
begin
treeview1.Items.AddChild(thisnode,fieldbyname('dq').AsString);
next;
end;
end;
next;
end;我的代码 那里需要改进一些