盒子论坛 v2.1

Begin
Var
  i:Integer;
  Node:TTreeNode;
  QryStr:string;
Begin
  With ADOQuery Do
    Begin
      QryStr:='Select * From '+TableName;
      Close;SQL.Clear;SQL.ADD(QryStr);Open;
    End;
  For  i:=0 To ADOQuery.RecordCount-1 Do    //从这边往下该怎么西写？？？
    Begin
      Node:=TreeView.Selected;
      TreeView.Items.Add(Node,ADOQuery.IndexFields[i].AsString);
    End;
End;
----------------------------------------------
『惠安人才网』 www.harcw.net

作者：

hedong (hedong)	★☆☆☆☆	-
	盒子活跃会员

2004/3/16 18:15:08

1楼：

Var
  i:Integer;
  RootNode, Node:TTreeNode;
  QryStr:string;
Begin
  RootNode := Treeview1.Items.Add(nil, '根节点');

  With ADOQuery Do
  Begin
      QryStr:='Select * From '+TableName;
      Close;SQL.Clear;
      SQL.ADD(QryStr);
      Open;
      while not eof do
      begin
         TreeView.Items.AddChild(RootNode,ADOQuery.IndexFields[i].AsString);
         next;
      end;
       Close;
  End;
End;

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

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/3/16 18:41:23

2楼：

盒子里现成的例子那么多!

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

信息

登陆以后才能回复