| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3936 人关注过本帖, 1 人收藏
标题:bom 根据一阶 BOM 表整理多阶层 BOM 表。
只看楼主 加入收藏
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:658
专家分:2180
注 册:2014-2-7
收藏
得分:80 
以下是引用hyz00001在2014-9-30 16:50:57的发言:

现在我执行代码:
MakeTree('A02.11.017170',1,0)
 
弹出的错误为:
表没有设置排序索引。
错误的位置在:
SEEK tcFather            && 定位到父项代码的首记录
请仔细阅读我的原帖:……并对“父阶编码”建立普通索引,……

泉城飞狐
2014-09-30 19:39
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:20 
如果把6楼版主的代码再稍加扩充,可以得出楼主的第2张表的原样(仅供参考)
CLEAR ALL
 CLOSE ALL
 CREATE TABLE tblResult (阶层 c(10),父阶编码 c(10),子阶编码 c(10),用量 n(10,2),拆分 c(1))
 s=2 && 阶层组大于2时没测试
 ns1=1
 ns2=0
 USE tblSource ORDER 父阶编码 alia tbl && 原表需自己创建
    =AFIELDS(cf,'tbl')
 for n=1 to s  
     cs1=IIF(n=1,&cf(n,1),&cf(n,1))
     MakeTree(cs1,ns1,ns2)
 endf   
   SELECT tblResult
 browse
 close all
 
 procedure maketree
* ===========================================================
 * 参数:tcFather 父阶编码,tnCount  父项数量, tnLevel  层级
 * ==========================================================
 LPARAMETERS tcFather,tnCount,tnLevel
 LOCAL nRec,cSon,nCnt,cSplit,cLevel
 
 nRec = RECNO()           && 保存记录指针
 SEEK tcFather            && 定位到父项代码的首记录
 tnLevel = tnLevel + 1    && 层级累加
* 遍历所有子项
 SCAN REST WHILE 父阶编码 = tcFather
     tnCount=IIF(n=1,tnCount,1)
     cSon = 子阶编码
     nCnt = 用量 * tnCount
     cSplit = IIF(INDEXSEEK(cSon,.f.),'y',' ')    && 是否被拆分
     cLevel = REPL('*',tnLevel) + TRAN(tnLevel)   && 层级
    * 添加到结果表
     INSERT INTO tblResult (阶层,父阶编码,子阶编码,用量,拆分) VALUES (cLevel,cs1,cSon,nCnt,cSplit)
    * 存在子项时,仍需拆分,采用递归
     IF cSplit = 'y'   
        MakeTree(cSon,nCnt,tnLevel)
     endif
 ENDSCAN
 GO nRec                  && 恢复记录指针
  
2014-10-02 01:30
hyz00001
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:168
专家分:137
注 册:2012-10-5
收藏
得分:0 
谢谢各位的帮忙。
2014-11-18 13:39
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:0 
进来学习学习
2014-11-19 07:33
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
志个记号,以备学用。
2014-11-19 16:05
ILoveVFD
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:218
专家分:147
注 册:2015-5-2
收藏
得分:0 
这个帖子有技术含量!
2015-05-04 18:22
JUNAS
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2019-6-4
收藏
得分:0 
好厉害呀
2019-06-04 15:49
快速回复:bom 根据一阶 BOM 表整理多阶层 BOM 表。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.046565 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved