- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 如何动态统计求和数据??? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60148)
-- 发布时间：2014/11/19 10:28:00
-- [求助] 如何动态统计求和数据???
现有两个表:
统计表的结构来自于表设置的动态设置,各列均为整数型,统计表的总评各列,如何用代码一次性统计出相关数据??
此主题相关图片如下：表设置.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)
Next
R(C.Name) = SUM
Next
End If
SUM = SUM-SUM
Next
问题就是出现在主窗口中的"统计\'按钮代码,统计不出总评的数据.
[此贴子已经被作者于2014-11-19 10:48:36编辑过]
-- 发布时间：2014/11/19 10:34:00
--
已花2小时还没有弄出来!!请求各位啦!
-- 发布时间：2014/11/19 10:39:00
--
如何嵌套,真把人弄晕了!!肯定是哪路嵌套语句错了!!请求大师们指点!
-- 发布时间：2014/11/19 10:41:00
--
例子发上来。
-- 发布时间：2014/11/19 10:44:00
--
上传 全部附件!
-- 发布时间：2014/11/19 10:44:00
--
麻烦大师指点指点!
-- 发布时间：2014/11/19 10:56:00
--
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
-- 发布时间：2014/11/19 11:03:00
--
总评的后两列不能计算?如果修改统计表中的中/差 数据,总评 的后两列:中、差不能统计数据。
衷恳老师再指点指点！！！
-- 发布时间：2014/11/19 11:04:00
--
测试可以计算
-- 发布时间：2014/11/19 11:07:00
--
此主题相关图片如下：2.jpg
在您的成果上，发现少了累加！谢谢老师啊！！此坛真好！