var slist:Tstringlist; begin slist:=Tstringlist.create; SList.Add('飞机'); 零件表.First; while Not 零件表.Eof do begin SList.Add(' '+零件名称字段); 零件表.Next; end; FStream:=TmemoryStream.Create ; SList.SaveToStream(FStream); FStream.Position :=0; TreeView1.Items.Clear; Treeview1.LoadFromStream(FStream); Treeview1.TopItem.Expand(true); FStream.Free; SList.free; end;
帮你ding
你要的功能是什么呀
能详细说说????何必掉胃口!!我没QQ,我也不用QQ, 我只上CSDN!!!~~~~~~~~~~哈哈~~~~~~~~~~~~~~~~
有2张表 表一:
名称: 飞机 大炮 。。
型号:b-16 bii 。。
出厂日期:2003.2.1 1998.2.25 。。
表二:
名称:飞机 大炮
零件1:发动机 炮管
零件2:机翼 螺丝
零件3:...
....
程序中 我用COMBOBOX调出名称 当选择飞机时 在TREEVIEW中显示
飞机 --可展开 展开后显示各个零件 比如 发动机 机翼 等。
俩个 我能够做出你的需要,但是 treeview,没有用过
楼主,
关注,学习中!~~~
你说说看!
注明:Delphi
begin
slist:=Tstringlist.create;
SList.Add('飞机');
零件表.First;
while Not 零件表.Eof do
begin
SList.Add(' '+零件名称字段);
零件表.Next;
end;
FStream:=TmemoryStream.Create ;
SList.SaveToStream(FStream);
FStream.Position :=0;
TreeView1.Items.Clear;
Treeview1.LoadFromStream(FStream);
Treeview1.TopItem.Expand(true);
FStream.Free;
SList.free;
end;