- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 统计问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39863)
-- 发布时间：2013/9/3 15:10:00
-- 统计问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:123.table |
在总分细化表格中
两个问题：
1、如何根据分值填写第1、2列
2、在统计中如何统计相应分析段的人数
-- 发布时间：2013/9/3 15:14:00
--
1.没看懂.
2.利用DataTables("XX").Compute 条件统计可以做 http://www.foxtable.com/help/topics/0393.htm
-- 发布时间：2013/9/3 15:29:00
--
楼主你的代码错得一塌糊涂：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.table |
-- 发布时间：2013/9/3 16:14:00
--
谢谢
我接触狐表不到20天，也就只能这样啦，前面用excle作了一个成绩分析，速度太慢，现在看看这个如何。
-- 发布时间：2013/9/3 16:16:00
--
第一个问题，如何解决啊
-- 发布时间：2013/9/3 16:17:00
--
现在是边制作边学习
-- 发布时间：2013/9/3 16:17:00
--
第一个问题,没有看懂.
-- 发布时间：2013/9/3 17:16:00
--
就是写出分数段节点
第一行第一列固定750，第二列为与最高相接近的分数，比如第一名626，那就为625
从第二行起下调5分或者10分、20分根据选择的分数填写
比如 （5分段）
起始 结束
1 750 625
2 624 620
3 619 615
……
10分段
起始 结束
1 750 620
2 619 610
3 609 600
……
-- 发布时间：2013/9/3 20:23:00
--
把下面的代码，写在统计按钮里，测试有效。
Dim rb1 As WinForm.RadioButton = e.Form.Controls("RadioButton1")
Dim rb2 As WinForm.RadioButton = e.Form.Controls("RadioButton2")
Dim rb3 As WinForm.RadioButton = e.Form.Controls("RadioButton3")
Dim jiange As Integer = iif(rb1.Checked, 5, iif(rb2.Checked, 10, iif(rb3.Checked, 20, 0)))
If jiange = 0 Then
msgbox("请选择分数段")
Else
Dim dt As DataTable = DataTables("总分细化")
Dim dt_source As DataTable = DataTables("原始成绩")
dt.DataRows.Clear
Dim ndr As DataRow = dt.AddNew
ndr("分数段_起始") = 750
Dim max As Double = dt_source.Compute("max(总分)")
Dim gewei As Integer = max Mod 10
If gewei >= 5 Then
gewei = 5
Else
gewei = 0
End If
max = (max \\ 10) * 10 + gewei
ndr("分数段_结束") = max
For i As Integer = max - 1 To 300 Step -1*jiange
ndr = dt.AddNew
ndr("分数段_起始") = i
ndr("分数段_结束") = i - jiange
Next
End If
-- 发布时间：2013/9/3 21:04:00
--
非常感谢几位大师的指点。
谢谢！