有关树的问题,请各位改一下
我的表为
--------------------
pid | id | name
0 | 001 | 原辅料
001 | 002 | 布料
001 | 003 | 辅料
002 | 004 | 纯棉
002 | 005 | TC布
003 | 006 | 扣子
003 | 007 | 绣线
--------------------
function TF_FenLei.AddChildNode(node: TTreeNode; typecode: string; stype: string): TTreeNode;
var i:integer;
begin
Result := TreeView1.Items.AddChild(node, stype);
with adoquery1 do begin
Close;
SQL.Clear;
SQL.Text := 'SELECT * FROM B_Lei WHERE pid='+typecode;
Open;
while not eof do begin
TreeView1.Items.AddChild(result,FieldByName('Name').AsString);
//AddChildNode(Result,FieldByName('id').AsString,FieldByName('Name').AsString);
next;
end;
end;
end;
procedure TF_FenLei.FormCreate(Sender: TObject);
begin
AddChildNode(nil,'001','原辅料');
end;
想得到
原辅料
|--布料
| |--纯棉
| |--TC布
|--辅料
|--扣子
|--绣线
但得到的却是
原辅料
|--布料
| |--纯棉
请各位改一下,或给我一个更好的方法生成数据树,谢谢!!!!