主题：分类统计的代码，，怎么编写，，，，

Dim t As Table 

Dim s1,s2  As String

Dim Ls As List(Of String)

Ls = DataTables("b").GetUniqueValues("", "加工工艺")

For Each s1 In Ls

    s2+ =",iif(加工工艺 = '" & s1 & "'" & ",数量 ,Null) as 加工工艺_" & s1.Replace("号工艺","")

Next

t = Tables("窗口1_Table1")

t.FILL("Select [_Identify],订单号,颜色" & s2 & ",数量 as 订单数量 From{B}",True)

t.sort = "订单号"