主题：[求助] BOM 在导出的时候，将每个组件当成一个独立的Sheet输出

此主题相关图片如下：foxtable.png

BOM 在导出的时候，将每个组件当成一个独立的Sheet输出

如上图所示，如何可以做到，将整个BOM输入为一个BOM表，将每一个组件下的父阶输出为独立的Sheet

注，可以根据i 列中的 “--” 判断

还是不太明白。这样只可以导出全部的组件而，我的想法是每一个组件生成一个Sheet

如：

是一个组件，则生成单独的Sheet，Sheet的名称为对应行的（“名称”）

组件下的所有物料，含组件，复制到新的Sheet上

此主题相关图片如下：foxtable.png

老师，按代码执行后会出现两个问题，

1》 如总序号是1.3    他会把1.30 1.31..............都含括进去，

此主题相关图片如下：foxtable.png

tb.Filter = "总序号 like '" & p & ".%' Or 总序号 =  '" & p & "'"

执行后，得到上面左边的效果，但我想要的是右边的样子。

谢谢老师，已经做好了，思路很重要，，，，，，，把代码分享出来。。。。。

Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable   
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    tb.SaveExcel(dlg.FileName, "BOM")  '保存文件   
    Dim Ps As List(Of String) = dt.GetValues("排序号","i = '--'")
    If ps.Count > 0 Then
        For Each p As String In Ps
        Dim fr As DataRow = dt.find("排序号 = '" & P & "'")
        Dim jc As Integer = fr("阶层")
            tb.Filter = "( 阶层 = '"  & jc + 1 & "' and 排序号 Like '" & p & ".%') or (排序号 =  '" & p & "' and 阶层 = '"  & jc & "')"
           tb.SaveExcel(dlg.FileName,tb.Rows(0)("名称"))
        Next
    End If
End If

Functions.Execute("打开导出文件" , dlg.FileName )