[求助] 如何动态统计求和数据??? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

现有两个表:

统计表的结构来自于表设置的动态设置,各列均为整数型,统计表的总评各列,如何用代码一次性统计出相关数据??

此主题相关图片如下：表设置.jpg

此主题相关图片如下：统计表.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:人事测评2014.zip

再请各位大师纠正一下我的代码错在哪里,总是计算不出来!!!

Dim SUM As Integer '定义相关列的和

For Each C As Col In Tables("统计").ColS '遍历统计表的各列

If C.Name.Contains("总评") Then '如果不是总评列

For Each R As Row In Tables("统计").RowS '遍历统计表的行

Dim DL As List(OF String) = DataTables("表设置").GetValues("大类")

DL.Remove("")

Dim DLS As Integer = DL.Count '得到表设置大类有效数据行

Dim FL As List(OF String) = DataTables("表设置").GetValues("分类")

FL.Remove("")

Dim FLS As Integer = FL.Count

Dim J As Integer = DLS * FLS

For I As Integer = 1 To J Step FLS

SUM = SUM + R(I)

MessageBox.Show(I)

R(C.Name) = SUM

End If

SUM = SUM-SUM

问题就是出现在主窗口中的"统计'按钮代码,统计不出总评的数据.

[此贴子已经被作者于2014-11-19 10:48:36编辑过]

已花2小时还没有弄出来!!请求各位啦!

如何嵌套,真把人弄晕了!!肯定是哪路嵌套语句错了!!请求大师们指点!

上传全部附件!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:人事测评2014.zip

麻烦大师指点指点!

Dim fl As List(of String) = DataTables("表设置").GetValues("分类", "分类 is not null")
Dim dl As List(of String) = DataTables("表设置").GetValues("大类", "大类 is not null")
For Each r As Row In Tables("统计").Rows
    For Each f As String In fl
        Dim sum As Integer = 0
        For Each d As String In dl
            sum += r(d & "_" & f)
        Next
        r("总评_" & f) = sum
    Next
Next

总评的后两列不能计算?如果修改统计表中的中/差数据,总评的后两列:中、差不能统计数据。

衷恳老师再指点指点！！！

此主题相关图片如下：2.jpg

在您的成果上，发现少了累加！谢谢老师啊！！此坛真好！

主题：[求助] 如何动态统计求和数据???