treeview中怎样把数据库中的数据动态加到里面,节点可以是任意多个,很急,希望过路的朋友帮帮忙!谢谢
解决方案 »
- Delphi在RichEdit中能否插入一些图片
- delphi + sql2k怎么防止同时对一个表的同一记录 更新
- listview能否实现拖动换行?
- 用D6新建时为什么看不到ActiveX选项卡
- 我要想要在普通打印机上象票据打印机一样一行一行间断打印,谁知道吗?
- 一个关于DELPHI动态建立ACCESS链接表的问题! 请帮我看看! 谢谢!
- 请问,自动创建的窗体(非主窗体),它的Parent是什么呢?
- 如何永久保存对组件属性的动态修改?
- 吐血经验!!!delphi用BDE+ODBC的体制开发oralce先天性的缺陷!
- 关于winsock接受数据的问题。(我收不到数据)
- tdbradiogroup的用法???在线急等,高手进.......
- 郝海东:对中国足球寒心 我现在已经不放炮了.(转)
if rs.field()=1 then begin
NodeParent:=tvLocal.Items.Add(nil ,aTVP[A].Title);
NodeParent.SelectedIndex:=Icon_OnLineDate;
NodeParent.ImageIndex :=Icon_OnLineDate;
end
else begin
NodeSub:=tvLocal.Items.AddChild (Nodeparent,aTVP[A].Title);
NodeTask.SelectedIndex:=Icon_OnLine;
NodeTask.ImageIndex :=Icon_OnLine;
end;這是只有兩級的,如果多級在數據庫中可以這樣設計,再怎麼顯示,自已可以搞定拉.
id,Name,Level,parentID
1 aaa, 1, 0
2 aaaaaa, 2, 1
3 aaabbb, 2, 1
4 bbb, 1, 0
5 bbbaaa, 2, 4,
6 cccc 3, 5,
7 dddd, 3, 5,
function AddFirstChild();Your Declare Function:
function GetFatherNode(const NodeItendityId:variant):TTreenode;
Operater:
var
anode:ttreenode;
nodeid:variant;while not dataset.eof do
begin
nodeid:=dataset.fields[aindex].asstring;//as you like....
anode:=getfathernode();
dataset.next;
end;
like this.....