如何申请一个汇总字段

公式我正在开发的库存系统，我已经开发了以下功能的纸箱和作品之间的转换。如何申请一个汇总字段

Public Function convertQTY(ByVal units_case As Integer, ByVal quantity As QTY) As QTY 

    While quantity.pieces < 0 And quantity.cartons > 0 

     If quantity.pieces < 0 And quantity.cartons > 0 Then 
      quantity.pieces = units_case + quantity.pieces 
      quantity.cartons -= 1 
     End If 

    End While 

    If quantity.pieces >= units_case Then 

     quantity.cartons = quantity.cartons + (quantity.pieces \ units_case) 
     quantity.pieces = quantity.pieces Mod units_case 

    End If 


    Return quantity 
End Function

例如，如果每箱单位/件是144，则上面的代码段转换成纸箱如果数量超过144，并且如果片是小于0，则上面的代码从纸箱中减去1，并增加了单位每箱成片的数量。这样的作品从未超过一箱件的总数和他们从来没有证明是小于0

我想总结领域我水晶报表相同的效果。用于示出在每个组的末端的纸箱和片的总和。我怎样才能做到这一点？

来源

2012-02-27 user944591

你有没有意识到，你不需要While循环你的代码里面？只需设置'quantity.cartons =（quantity.pieces \ units_case）'，然后设置'quantity.pieces = quantity.pieces国防部units_case'无条件，来代替。 – 2012-02-27 15:43:19

通过对纸箱的数量创建公式和残片，像这样：

Number Of Cartons:

Sum ({MyTable.Pieces})\144

Remaining Pieces:

Sum ({MyTable.Pieces}) mod 144

来源

2012-02-27 15:41:38

如何申请一个汇总字段

回答

相关问题