你连接成功没?
我这里有个例子你看以下吧,在有什么
问题发邮件:[email protected]
一定要给分啦!
将表中一个所有记录的某一字段读入treeview中procedure TForm1.FormCreate(Sender: TObject);
var
   troot:ttreenode;
   an:string;
begin
   troot:=treeview1.Items.Add(nil,'全部类别');
   adotable1.First;
   while not adotable1.Eof do
      begin
        an:=adotable1.FieldValues['类别'];
        treeview1.Items.Addchild(troot,an);
        adotable1.Next;
      end;
end;