新学delphi，按照书上学习，在treeview中创建动态节点
其中，“联系目录”为根节点，在根据表中 “类型”字段添加子节点
但是在treeview组件中无法显示出来，请问是什么原因？
数据库应该连接没有问题
private
{ Private declarations }
public
Node1,Node2:TTreeNode;
{ Public declarations }
end;
var main:Tmain;
implementation
{$R *.dfm}
procedure TMain.TreeviewReFresh;
begin
Node1:=Treeview1.Items.Add(nil,'联系目录');
ADOQuery1.Close;
ADOQuery1.SQL.Text:='Select Distinct 类型 From msn'; //msn表中的类型字段//
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
begin
while not ADOQuery1.Eof do
begin
Node2:=TreeView1.Items.AddChild(Node1,ADOQuery1.Fields[0].asstring);
TreeView1.Items.AddChild(Node2,'');
ADOQuery1.Next;
end;
end;
end;
