在delphi中怎样展开bom表，不用sql 后台procedure！，只用adoquery ,自定yi function() ,temp table 急急急！谢谢！

[chambb]

在delphi中怎样展开bom表，不用sql 后台procedure！，只用adoquery ,自定yi function() ,temp table 急急急！谢谢！

[klbt]

建议到delphi提问，这里懂得人少。

[JXLEE365]

伪代码如下：
1、产生一个数据集ADOQ1，并将0层物料（也不一定是0层，但肯定是主计划项目）加入；
2、遍历数据集ADOQ1：
rec ： integer；
repeat until false
begin
rec := ADOQ1.recno
*-进行有关处理；
*-将本层物料的子件追加在ADOQ1的后面；

if ADOQ1.recno = ADOQ1.recordcount then
break；｛跳出｝

ADOQ1.recno := rec+1; ｛开始下一轮循环｝
end

这样做还有一个好处，就是可以不用底层码。