盒子论坛 v2.1

self.TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode,ADOTable.FieldList.Fields[1].AsString);
／／这是第一个字段帮定到ID上面了
／／第二个字段我想绑定到Name上面(Name不是ID的子节点，是个新的) 这段代码该怎么写？
3qqqqqqqqqqqqqqqq...............

此帖子包含附件:

大小:6.5K

----------------------------------------------
http://www.videa.cn
C#/Pascal/Java

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/12/30 20:39:39

1楼：

anode:=TreeView1.Items.AddChild(nil,....)添加根结点
TreeView1.Items.AddChild(anode,....)添加到上面那个节点下面

看看帮助就知道啦。
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/12/30 20:44:00

1楼：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables, ComCtrls;

type
  TForm1 = class(TForm)
    tv1: TTreeView;
    Table1: TTable;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:Longint;
s:string;
nn,nn2:TTreeNode;
begin
tv1.Items.Clear ;
for i:=0 to table1.Fields.Count -1 do
   begin                  //1
      nn:=tv1.Items.Add(nil,table1.Fields.Fields[i].DisplayName  );
      table1.First ;
      while not table1.Eof do
       begin//2
         nn2:=tv1.Items.AddChild(nn,table1.Fields.Fields[i].Text );
         table1.Next ;
       end;//2
   end;//1
end;

procedure TForm1.FormShow(Sender: TObject);
begin
table1.DatabaseName :=ExtractFilePath(application.ExeName );
table1.TableName :='rid1.db';
table1.Open ;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
table1.Close ;
end;

end.

此帖子包含附件:

大小:4.1K

----------------------------------------------

作者：

flyers (flyers)	★☆☆☆☆	-
	普通会员

2003/12/30 20:52:15

2楼：

Sure，就是这样的
----------------------------------------------
大家好，我是Flyers。

是Delphi.Net版主，小弟会尽力解决大家的问题！谢谢支持！

信息

登陆以后才能回复