高分求

[computerstarveling]

有一张表的两个字段分别是A和B，A和B之间存在着类似主从的关系，如：
A字段 B字段
桑塔那 2000
桑塔那 普通型
奥迪 A4
奥迪 A6
现在我有一个TreeView，我要在窗体显示的时候在TreeView里增加以A字段为根结点，以B字段为子结点，哪位高人能给出代码？

[coolfilm]

up

[lxpbuaa]

最开始首先对字段A排序，这样可以加快处理速度。
var
PreAText, AText, BText: String;
Node: TTreeNode;
begin
Table1.First;
while not Table1.Eof do with Table1 do
begin
AText := FieldByName('A').AsString;
BText := FieldByName('B').AsString;
if AText <> PreAText then
begin
PreAText := AText;
Node := TreeView1.Items.Add(nil, AText);
end;
TreeView1.Items.AddChild(Node, BText);
Next;
end;
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[lxpbuaa]

最开始首先对字段A排序，这样可以加快处理速度。
var
PreAText, AText, BText: String;
Node: TTreeNode;
begin
Table1.First;
while not Table1.Eof do with Table1 do
begin
AText := FieldByName('A').AsString;
BText := FieldByName('B').AsString;
if AText <> PreAText then
begin
PreAText := AText;
Node := TreeView1.Items.Add(nil, AText);
end;
TreeView1.Items.AddChild(Node, BText);
Next;
end;
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[FrameSniper]

可以结帖了！

[nydelphi]

up