主题：[求助]交叉查询

 这种的话，你可以减少 单位 分组进行一次交叉统计，统计结束以后对统计表进行处理，加入单位列，修改对应值。

 你上传数据表吧。

有一个问题。

如果同一个原料编码，不同的单位，单位简称都有数据，你怎么处理？

例如

	单位	a	b	c	d	e
A	个		2		6
A	斤	4	4	3	6	5

 做一个按钮，把这段代码执行一下就行了。

Dim dt As DataTable = DataTables("销售订单汇总总表")

Dim dtb As New DataTableBuilder("分货表")
dtb.AddDef("原料编码", Gettype(String), 32)
For Each col As String In dt.GetUniqueValues("", "单位简称")
    dtb.AddDef(col, Gettype(String), 8)
Next
dtb.Build()

Dim t As Table = Tables("分货表")
For Each ylbm As String In dt.GetUniqueValues("", "原料编码")
    Dim r As Row = t.AddNew
    r("原料编码") = ylbm
    For i As Integer = 1 To t.Cols.Count - 1
        Dim colName As String = t.Cols(i).Name
        Dim filter As String = "原料编码 = '" & r("原料编码") & "' And 单位简称 = '" & colName & "'"
        Dim data As String = ""
        For Each dw As String In dt.GetUniqueValues(filter, "订单单位")
            data &= dt.Compute("Sum(订单数量)", filter & " And 订单单位 = '" & dw & "'") & dw & "+"
        Next
        r(colName) = data.Trim("+")
    Next
Next

MainTable = t

你直接设计一个窗口，或者设计一个菜单就行了。

http://www.foxtable.com/help/topics/0698.htm