with Table1 do while not EOF do if FieldValues['Department']='Computer' then TreeView1.Items.AddChild(Nil,FieldValues['Department']);
var tNode: TTreeNode; begin tNode := TreeView1.Items.Add(nil, '信息学院'); with TreeView1.Items do begin Table1.First; while not Table1.Eof do begin AddChild(tNode, Table1.FieldValues['信息学院']); Table1.Next; end; end; end;
var tNode: TTreeNode; begin tNode := TreeView1.Items.Add(nil, '信息学院'); Table1.First; while not Table1.Eof do begin tNode.Caption :=Table1.FieldValues['信息学院']; tNode.Subitem[0]:=Table1.FieldValues['姓名]; tNode.Subitem[1]:=Table1.FieldValues['性别']; Table1.Next; end; end;
有误不好意思少加一条语句 var tNode: TTreeNode; begin Table1.First; while not Table1.Eof do begin tNode := TreeView1.Items.Add; tNode.Caption :=Table1.FieldValues['信息学院']; tNode.Subitem[0]:=Table1.FieldValues['姓名]; tNode.Subitem[1]:=Table1.FieldValues['性别']; Table1.Next; end; end;
while not EOF do
if FieldValues['Department']='Computer' then
TreeView1.Items.AddChild(Nil,FieldValues['Department']);
begin
tNode := TreeView1.Items.Add(nil, '信息学院');
with TreeView1.Items do begin
Table1.First;
while not Table1.Eof do begin
AddChild(tNode, Table1.FieldValues['信息学院']);
Table1.Next;
end;
end;
end;
begin
tNode := TreeView1.Items.Add(nil, '信息学院');
Table1.First;
while not Table1.Eof do begin
tNode.Caption :=Table1.FieldValues['信息学院'];
tNode.Subitem[0]:=Table1.FieldValues['姓名];
tNode.Subitem[1]:=Table1.FieldValues['性别'];
Table1.Next;
end;
end;
var tNode: TTreeNode;
begin
Table1.First;
while not Table1.Eof do begin
tNode := TreeView1.Items.Add;
tNode.Caption :=Table1.FieldValues['信息学院'];
tNode.Subitem[0]:=Table1.FieldValues['姓名];
tNode.Subitem[1]:=Table1.FieldValues['性别'];
Table1.Next;
end;
end;