主题：表的转换

BOM 作查询表?

Dim Ls() As String ={"导体","绝缘","耐火","绝缘","填充","包带","铜带","铜丝","内护层","钢带","护套"}

Dim s,t As String

For Each t  In Ls

    s+=" union all Select 型号,规格,'" & t & "' as 材料," & t & " As 用量 from {EXCEL} where " & t & " <> 0"

Next

DataTables("BOM").Fill(s.Substring(11),True)

那BOM根本没存在的必要!

Dim Ls() As String ={"导体","绝缘","耐火","绝缘","填充","包带","铜带","铜丝","内护层","钢带","护套"}

Dim s,t As String

For Each t  In Ls

    s+=" union all Select [_Identify],型号,规格,'" & t & "'as 材料," & t & " As 用量 from {EXCEL} where " & t & " <> 0"

Next

Tables("窗口4_Table2").Fill(s.Substring(11),True)

Tables("窗口4_Table2").sort = "_Identify"