新手求教treeview问题(50分)

我的数据库有2张表<br><br>a表<br>1 &nbsp;中国<br>2 &nbsp;美国<br>3 &nbsp;韩国<br>================<br>b表<br>北京 1<br>河南 1<br>江苏 1<br>关岛 &nbsp; 2<br>华盛顿 2<br>旧金山 2<br>汉城 &nbsp; 3<br>======================<br><br><br>不知道要怎么做才能做成treeview树状呢？？谢谢大家了

假设a表用adoquery1，b表用adoquery2<br>while not adoquery1.eof do<br>begin<br>&nbsp; treeview1.items.add(adoqueryy1.fieldbyname('国籍').asstring);<br>&nbsp; adoquery2.close;<br>&nbsp; adoquery2.sql.clear;<br>&nbsp; adoquery2.sql.add('select * from b表 where b.代码=a.代码');<br>&nbsp; adoquery2.open;<br>&nbsp; while &nbsp;not adoquery2.eof do<br>&nbsp; begin<br>&nbsp; &nbsp; treeview1.items.addchild(adoquery2.fieldbname('地址').asstring);<br>&nbsp; end;<br>&nbsp; adoquery1.next;<br>end;

dtboyi,说的方法你试下，应该可以

treeview1.items.add(adoqueryy1.fieldbyname('国籍').asstring);<br><br>提示 Incompatible types: 'TTreeNode' and 'String'<br><br>这个如何处理啊？？晕

var <br>node: TTreeNode;<br>begin<br>&nbsp; node := TreeView1.Items.Add(nil,ADOQuery1.FieldByName('国籍').AsString);<br><br>.........<br><br>TreeView1.Items.AddChild(node,ADOQuery2.FieldByName('地址').AsString);<br>ADOQuery2.Next<br><br>...........

谢谢大家的帮助