主题：[求助]统计表的问题。老师请进！

此主题相关图片如下：qq图片20170408020723.png

If e.DataCol.Name = "项目" Then
   
    e.DataRow("应发金额") = DataTables("中建龙城工资").Compute("Sum(税前工资)","[项目] = '" & e.DataRow("项目") & "'")
    e.DataRow("实发金额") = DataTables("中建龙城工资").Compute("Sum(实发工资)","[项目] = '" & e.DataRow("项目") & "'")
   
    If e.DataCol.Name = "项目" Then
        e.DataRow("应发金额") = DataTables("中建龙城费用").Compute("Sum(应发金额合计)","[项目] = '" & e.DataRow("项目") & "'")
        e.DataRow("实发金额") = DataTables("中建龙城费用").Compute("Sum(实发金额)","[项目] = '" & e.DataRow("项目") & "'")
    End If
   
End If

代码写完之后，只统计了最后一行的，请问是不是掉了什么东西？

研究了一晚上了，不是统计的时候直接填充所有行，就是只统计一行

请老师帮忙修改指正一下！

这个没毛病，我说的是重置列之后，只会重置代码最后一行写的那一行，如图，只显示第二行。

第一行就不显示了。

我把代码改成这个了，可以用了。