主题：[求助]统计报表

Dim iii As Integer = 0

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), 16)

Next

dtb.Build()

Dim t As Table = Tables("分货表")

MainTable = t

Dim icou As Integer = dt.GetUniqueValues("", "原料编码").Count

StatusBar.Message1= "正在统计"

StatusBar.ProgressBar.Visible = True

StatusBar.ProgressBar.Maximum = icou

For Each ylbm As String In dt.GetUniqueValues("", "原料编码")

    If ylbm > "" AndAlso CInt(ylbm) < icou + 1 Then

        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

            For Each dw As String In dt.GetUniqueValues(filter, "订货包装单位")

                data &= dt.Compute("Sum(数量包装单位)", filter & " And 订货包装单位 = '" & dw & "'") & dw & "+"

            Next

            r(colName) = data.Trim("+")

        Next

        iii = iii + 1

        StatusBar.ProgressBar.Value = iii

        StatusBar.Message2 = "正在处理第" & iii & "条数据"

        Application.DoEvents

    End If

Next

StatusBar.Message2 = "已经处理完毕,总共处理了" & iii & "条数据"

StatusBar.ProgressBar.Value = icou

1，不想要“数量基本单位”与“基本单位”的合并。只想要“数量包装单位”的合计值与单位合并。由于订单的复杂性，同一家客户在订购同一商品时会使用不同的“订货包装单位”及3斤+2个，加上补订单，就会出现几行订单，分别是3斤，5斤，2个，5个，我要做的就是求得8斤+7个【（3+5）斤；（2+5）个】，用于分货。包装单位存在“订货包装单位”，该单位的数量存在“数量包装单位”

2，“数量基本单位（这是数量，如5）”与“基本单位（是标准单位，一般是斤）”是将这些不同的计量单位按照转换率转换为标准单位后的数量及其标准单位。由于转换率仅仅是参考值，只能用于采购的大致换算。分货是按照订单的计量单位合计数来分，在按计量为基本单位收钱。

3，感觉老师是把上述两个合并了。

4，分货表的纵坐标应该是“商品名称”，我用它替换“原料代码”再运行也不行，看来这个瓢不好画呀。由于客户是多个总公司（下有分公司），我想做成多个按钮，因此，这个分货表就需要加上总公司的选择条件。好像你先前给我的那个“公司一”“公司二”这样的选择。

5，分货组号与商品名称并列为纵坐标，它是商品的属性。