如何将treeview与adoquery或adotable连起来使用

Question

如何将treeview与adoquery或adotable连起来使用

Answer 1

procedure TABCDM.WriteTotreeviewHy(treename: Ttreeview);
var 
   Fathernode:Ttreenode;
begin
  str_sql:='select ID,name from tanle1 where sys=-1';
  run_query_sql(adoqry,str_sql);
  fa_gname:=adoqry.fieldbyname('name').asstring;
  treename.Items.Clear;
  Fathernode:=treename.Items.add(nil,fa_gname);
  while not adoqry.Eof do
  begin
     treename.Items.addchild(Fathernode,Atype);
     adoqry.next;
  end;
end;

Answer 2

我的意思是能够通过修改treeview中的内容从而改变table中的内容