- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎样取数？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28973)
-- 发布时间：2013/2/24 11:42:00
-- [求助]怎样取数？
示例：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复件 高三分析统计程序.rar |
高理前 N 名：
此主题相关图片如下：高理前 n 名.jpg
在“总分前‘N’名”按钮统计中列“市一诊名次”(即“高理前 N 名”表中的红色)填充代码如何写？请指教。谢谢!
要求：它是在“市级1分段”表中提取，如：总分634分，要将总分拆分为630+4，然后 部别=‘高理’and分数段 = 630 ，个位 = 4 对应的数( 378 )( “市级1分段"表中红色)就是它在全市的名次。关键是总分如何拆分(634=630+4)。
此主题相关图片如下：市级1分段.jpg
-- 发布时间：2013/2/25 10:56:00
--
弄死，还以为是各个分数段人次……还傻傻的累加一次……
代码加在最后便可。注意，分数段、加n分，列变成数值类型
Dim dt_source As DataTable = DataTables("市级1分段")
For Each Km As String In Kms
For Each bb As String In bbs
Dim t As Table = Tables(Km & tjnj &"级"& bb &"前 N 名")
For Each r As Row In t.Rows
Dim gw As Integer = CInt(r("总分")) Mod 10
Dim fsd As Integer = CInt(r("总分")) - gw
Dim fdr As DataRow = dt_source.Find("分数段 = " & fsd)
If fdr IsNot Nothing Then
r("市一诊名次") = fdr("加" & gw & "分")
End If
Next
Next
Next
-- 发布时间：2013/2/25 15:48:00
--
搞定。谢谢！还要加个筛选条件：
Dim dt_source As DataTable = DataTables("市级1分段")
For Each Km As String In Kms
For Each bb As String In bbs
Dim t As Table = Tables(Km & tjnj &"级"& bb &"前 N 名")
For Each r As Row In t.Rows
Dim gw As Integer = CInt(r("总分")) Mod 10
Dim fsd As Integer = CInt(r("总分")) - gw
Dim fdr As DataRow = dt_source.Find("分数段 = \'" & fsd & "\'And 部别 = \'" & bb & "\' And 年级 = \'" & tjnj & "\'")
If fdr IsNot Nothing Then
r("市一诊名次") = fdr("加" & gw & "分")
End If
Next
Next
Next
“分数段”、“加n分”列为字符型时好像代码执行也无误。