主题：数据表的竖向计算

老师您好！

   我要有一个计算表，属于跨表计算，有15个客户，由于计算内容多，需要将表竖起来计算，所以我将客户名作为列名，将每一个计算内容为一行，有68行，我的计算公式没有问题，自己能写，就是用通用代码怎么将数据写入每一行中，不会循环。我下面计算了两行，第二行hs(2) 是不对的。麻烦给予指教！

Dim hs(68) As Double
Dim je1,je2 As Double
For Each nm As String In DataTables("ddpsb").GetValues("客户")
 Dim dr As DataRow = DataTables("ddpsb").find("客户='" & nm & "'")

For Each r As Row In Tables("盈亏计算总表").rows
   
    Dim xm As String = r("项目名称")

  hs(1)=DataTables("ddpsb").Compute("Sum(净重)", "[发货日期]<= #" & dt3 & "# and [客户]='" & nm & "'And 发货日期 Is Not null")

  je1=DataTables("ddpsb").Compute("Sum(含税金额)", "[发货日期]<= #" & dt3 & "# and [客户]='" & nm & "'And 发货日期 Is Not null")
  je1=DataTables("ddpsb").Compute("Sum(不开piao金额)", "[发货日期]<= #" & dt3 & "# and [客户]='" & nm & "'And 发货日期 Is Not null")
hs(2)=je1+je2

If xm="累计总产量"  
 r(nm)=hs(1)
End If
If xm="累计总产值"  
r(nm)=hs(2)
End If
Next 
Next   

此主题相关图片如下：盈亏表.png

上实例，应该有更好的方法

因为每一行一个公式，本人迷茫，请指教！

请上传实例说明

我没写完，就写了两行就卡这里了。

以下是计算部分

Dim hs(68) As Double
Dim je1,je2 As Double
For Each nm As String In DataTables("ddpsb").GetValues("客户")
 Dim dr As DataRow = DataTables("ddpsb").find("客户='" & nm & "'")

For Each r As Row In Tables("盈亏计算总表").rows
   
    Dim xm As String = r("项目名称")

  hs(1)=DataTables("ddpsb").Compute("Sum(净重)", "[发货日期]<= #" & dt3 & "# and [客户]='" & nm & "'And 发货日期 Is Not null")

  je1=DataTables("ddpsb").Compute("Sum(含税金额)", "[发货日期]<= #" & dt3 & "# and [客户]='" & nm & "'And 发货日期 Is Not null")
  je1=DataTables("ddpsb").Compute("Sum(不开piao金额)", "[发货日期]<= #" & dt3 & "# and [客户]='" & nm & "'And 发货日期 Is Not null")
hs(2)=je1+je2

If xm="累计总产量"  
 r(nm)=hs(1)
End If
If xm="累计总产值"  
r(nm)=hs(2)
End If
Next 
Next   
MainTable= Tables("盈亏计算总表")

不知道这些表表结构、表数据都是怎么样的，所以看不懂这些代码，请上传实例说明

这是我的ddpsb结构，我要计算的表是盈亏表。
此主题相关图片如下：无标题.png


此主题相关图片如下：盈亏表.png

累计数和选取月份的数据。总产量是净重之和，总产值是含税金额和不开piao金额之和。

ddpsb表数据和这些项目名称有什么关系？还是说只需要计算累计总产量和累计总产值2个项目？

累计总产量就是ddpsb中的净重总和，累计总产值就是ddpsb 的含税金额和不开piao金额的累计值。其他项目还有其他表的数据计算而来，您就给我解决这两行数据就行，我可以依次类推算。