求cxDBTreeList控件实例或用法。

Question

用cxDBTreeList控件显示如下数据表id pid  text1   0  父节点
2   1  子节点
3   1  子节点

Answer 1

cxDbTreelist1.DataController.DataSource;=\\
  cxDbTreelist1.DataController.KeyField:='id'
  cxDbTreelist1.DataController.ParentField:='pid'

Answer 2

官方网站上有Demo
http://www.devexpress.com/Downloads/VCL/ExQuantumTreeList/

Answer 3

1 procedure cxDBTreeList1GetNodeImageIndex(Sender:TcxCustomTreeList; ANode: TcxTreeListNode; AIndexType:
 2 
 3                TcxTreeListImageIndexType; var AIndex: TImageIndex);
 4 var
 5   i :Integer;
 6 begin
 7   //给树结点加上图标
 8   for i := 0 to ANode.ValueCount do
 9     begin
10       if ANode.Level = 0 then
11         begin
12           ANode.ImageIndex := 0;
13         end
14       else
15       if ANode.Level = 1 then
16         begin
17           ANode.ImageIndex := 2;
18         end
19       else
20       if ANode.Level = 2 then
21         begin
22           ANode.ImageIndex := 1;
23         end;
24     end;
25 end;