现有两个表:统计表的结构来自于表设置的动态设置,各列均为整数型,统计表的总评各列,如何用代码一次性统计出相关数据??
再请各位大师纠正一下我的代码错在哪里,总是计算不出来!!!
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)
Next
R(C.Name) = SUM
Next
End If
SUM = SUM-SUM
Next
问题就是出现在主窗口中的"统计'按钮代码,统计不出总评的数据.
[此贴子已经被作者于2014-11-19 10:48:36编辑过]