首页 相关文章 用数据表创建树

用数据表创建树

  数据库结构:
  字段 类型
  ID 整型 索引(无重复)
  name 文本
  father 整型
  
  
  
  //tree初始化
  procedure TForm1.FormActivate(Sender: TObject);
   var i:integer;
  begin
   treeview1.Items.BeginUpdate;
   while not(adotable1.Eof) do
   begin
   if ADOTable1.FieldValues['father']=0 then
   treeview1.Items.addchild(treeview1.DropTarget,ADOTable1.FieldValues['name'])
   else
   begin
   i:=0;
   repeat
   if treeview1.Item...[ 查看全文 ]

2016-02-19 标签:

用数据表创建树的相关文章

手机页面
收藏网站 回到头部