找树的全部子结点 ( 积分: 58 )

CREATE TABLE [dbo].[BC_area] (
[ID] [int] IDENTITY (1, 1) NOT NULL ,
[Name] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[Remark] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,
[SystemSign] [int] NULL ,
[EditFlag] [smalldatetime] NULL ,
[FatherID] [int] NOT NULL

知道FatherID，找其全部子类的ID

//用递归
//先读出所有的数据 在ADODataSet中
procedure BuildTree(FatherID:integer)
begin
for i:=0 to adodataset.recordcount-1 do
begin
if adodataset.fatherid=FatherID then
begin
记录该adodataset.id;
BuilderTree(adodataset.id);
end;

end;
end;

接受答案了.