主题：[求助]怎样取数？

示例：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复件 高三分析统计程序.rar

高理前 N 名：

此主题相关图片如下：高理前 n 名.jpg

在“总分前‘N’名”按钮统计中列“市一诊名次”(即“高理前 N 名”表中的红色)填充代码如何写？请指教。谢谢!

要求：它是在“市级1分段”表中提取，如：总分634分，要将总分拆分为630+4，然后 部别=‘高理’and分数段 = 630 ，个位 = 4  对应的数( 378 )( “市级1分段"表中红色)就是它在全市的名次。关键是总分如何拆分(634=630+4)。

此主题相关图片如下：市级1分段.jpg

 弄死，还以为是各个分数段人次……还傻傻的累加一次……

 代码加在最后便可。注意，分数段、加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

搞定。谢谢！还要加个筛选条件：

    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分”列为字符型时好像代码执行也无误。