主题：BOM数据展开，制造业的高手请进！

数据源是sql server的话好说，可以用递归查询。
你最好是贴出大概的表结构

数据源不同实现方式不同。
如果是sql server的话直接可以用T-SQL 实现递归查询。
如果是内部表的话只能用代码来递归，重复查询数据库。效率要低一点。

不知道你实际的数据源是内部表还是sql server

哦 那应该简单。

展开后怎么显示.我不懂单级正展 多级正展 原材料正展的区别。
还有childlevel字段非常重要。有这个字段 展开的时候效率能高很多。但是你的1楼的文件里面没有这个字段

你在SQL Server里面执行一下看看
with cte As
(
select *,0 As level,Cast(LTRIM(序号)+'/' As VarChar(100)) As Path ,Cast(RTRIM(子件编码)+'/' As VarChar(300))As FullPath from BOM表 where 母件编码 = 'CP-WG-JSG-0210'
union all
select a.*,level + 1,Cast(path + LTRIM(a.序号) + '/' As VarChar(100)),Cast(FullPath + RTRIM(a.子件编码) + '/' As VarChar(300)) from BOM表 a
join cte on a.母件编码  = cte.子件编码
)
select  * from cte

单级反展：select * from BOM表 where childitem= 'B-WG-XJ-QG-12'
多级反展：
;with cte As
(
select * from BOM表 where childitem = 'YCL-WXJ-YZJ-0246                        '
union all
select a.* from BOM表 a
join cte on a.childitem  = cte.parentitem
)
select  * from cte

用途反展。假设childlevel = 0 表示最顶端的母件
;with cte As
(
select * from BOM表 where childitem = 'YCL-WXJ-YZJ-0246                        '
union all
select a.* from BOM表 a
join cte on a.childitem  = cte.parentitem
)
select  * from cte where childlevel = 0

再企业管理器里面应该能执行吧。

foxtable 的执行sql窗口有一点小bug
你先执行select 1 
在弹出新的窗口里面输入上面sql

字符串不能直接换行。可以把的回车符删掉，让sql全部放到一行

或者
dim al as string=Forms("frm_a").Controls("TextBox1").value
Dim s As String =  " ;with cte As "  & _
                           "(select * from abt00000 where parentitem = '"  & al  & "'  "  & _
                           "union all  "  & _
                           "select a.* from abt00000 a  "  & _
                           "join cte on a.parentitem  = cte.childitem) "  & _
                           "select  * from cte " 
tables("frm_a_table1").Fill(s,"erp",true)

第一个问题 只能通过它是否还有下级来判断是否是原材料了。
原材料正展：
;with cte As
(
select * from abt00000  where parentitem = 'CP-WG-JSG-0210'
union all
select a.* from abt00000  a
join cte on a.parentitem  = cte.childitem
)
select  cte.* from cte   --查询得到所有下级物料，再和BOM 表做一次联接，筛选出这些物料中没有下级的记录，即为原材料
left join abt00000 b on cte.childitem = b.parentitem 
where b.parentitem is null


第二个顶层BOM你看看它的parentitem字段是什么？ 是'' 还是null
可以通过parentitem的值来把顶层的物料筛选出来。

正展不慢，反展慢？
你看看parentitem是不是没加索引？


语法错误可以 output.show(s)。然后把结果放到企业管理器里面检查