【结贴】树

黄金软件

在一个数据库表中,有字段档号和保管期限,现在要求实现这样一棵树:档号下面显示所有的数据库中的档号的值,保管期限下面显示所有的保管期限的值.如图红框中的是数据库中的值~~

lisb

可以用TreeView控件

黄金软件

如图,加载的子都是同一个档号.请帮忙看一下代码.

黄金软件

代码如下:
var
   rootNode, childNode1, childNode2: TTreeNode;
   I,J:string;
   count:integer;
begin
   DataSetBroker1.DataSet.Open;
   DataSetBZSJJ1.Open;
   Treeview1.Items.AddFirst( nil, '全部');
   rootNode := Treeview1.Items[0];
   Treeview1.Items.AddChild(rootNode,'档号');
   childNode1:=Treeview1.Items[1];
   Treeview1.Items.AddChild(rootNode,'保管期限');
   childNode2:=Treeview1.Items[2];
   for count:=0 to DataSetBZSJJ1.RecordCount-1 do
   begin
       I :=DataSetBZSJJ1.FieldByName('d_id').AsString;
      // J :=DataSetBZSJJ1.FieldByName('bgqx').AsString;
      Treeview1.Items.AddChild(childNode1,I);
      DataSetBZSJJ1.Edit;
      next;
      DataSetBZSJJ1.ApplyUpdates;
   end;
end;

gaihl

for count:=0 to DataSetBZSJJ1.RecordCount-1 do
   begin
       I :=DataSetBZSJJ1.FieldByName('d_id').AsString;
      // J :=DataSetBZSJJ1.FieldByName('bgqx').AsString;
      Treeview1.Items.AddChild(childNode1,I);
      DataSetBZSJJ1.next;
   end;

档号有相同的吗? 如果有,要过滤一下

黄金软件

最初由 gaihl 发布
[B]for count:=0 to DataSetBZSJJ1.RecordCount-1 do
   begin
       I :=DataSetBZSJJ1.FieldByName('d_id').AsString;
      // J :=DataSetBZSJJ1.FieldByName('bgqx')..

以下省略...... [/B]

对,有相同的档号,怎样过滤呀?不会... ;)

gaihl

在Sql语句中
使用 DISTINCT 消除重复项
DISTINCT 关键字可从 SELECT 语句的结果中除去重复的行。如果没有指定 DISTINCT，那么将返回所有行，包括重复的行。如:
USE pubs
SELECT DISTINCT au_id
FROM titleauthor
可以看一下Sql的帮助

黄金软件

ok了,请结贴吧~~谢谢帮忙~~

gaihl

不客气