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

chambb 2004-05-06 07:45:18
在delphi中怎样展开bom表,不用sql 后台procedure!,只用adoquery ,自定yi function() ,temp table 急急急!谢谢!
...全文
28 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
JXLEE365 2004-05-08
伪代码如下:
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

这样做还有一个好处,就是可以不用底层码。
  • 打赏
  • 举报
回复
klbt 2004-05-07
建议到delphi提问,这里懂得人少。
  • 打赏
  • 举报
回复
相关推荐
发帖
企业信息化
加入

1742

社区成员

企业开发 企业信息化
申请成为版主
帖子事件
创建了帖子
2004-05-06 07:45
社区公告
暂无公告