主题：在获取排名进步幅度时提示如图的错误。

 你得到的根本不是数值啊，而是类似 ↑21(92/113) 的数据

msgbox(dt_scorepmjf.Compute("max(" & dr("科目") & ")","[考试期数] = '" & e.DataRow("考试期数") & "' And [年级] = '" & e.DataRow("年级") & "'And [班别] = '" & e.DataRow("班别") & "'"))

 是不是你把表名搞错了？

要么，你写成这样

     e.DataRow("高幅度")=dt_scorepmjf.Compute("max(" & dr("科目") & ")","[考试期数] = '" & e.DataRow("考试期数") & "' And [年级] = '" & e.DataRow("年级") & "'And [班别] = '" & e.DataRow("班别") & "'")

不知道你想做什么

 无语，你的排名升降表没有一点实质的意义，是无法通过代码直接获取得到最大值和最小值的。

 如果是不改变表结构的情况，你的Datacolchanged事件，必须这样写

Dim dr As DataRow =e.DataRow
Dim dt_score As DataTable=DataTables("tblscore")
Dim dt_scorepmjf As DataTable = DataTables("tblscorepmsj")
If e.DataCol.name="科目" And e.DataRow.IsNull("科目")=False Then
   
    Dim mdr As DataRow = Nothing
    Dim max As Integer = 0
    For Each tdr As DataRow In dt_scorepmjf.Select("[考试期数] = '" & e.DataRow("考试期数") & "' And [年级] = '" & e.DataRow("年级") & "'And [班别] = '" & e.DataRow("班别") & "' And " & dr("科目") & " like '↑%'")
        Dim s = tdr(dr("科目"))
        s = s.SubString(1,s.IndexOf("(")-1)
        If mdr Is Nothing Then
            mdr = tdr
        Else
            If val(s) > max Then
                max = val(s)
                mdr = tdr
            End If
        End If
    Next
   
    e.DataRow("高幅度")=max
    e.DataRow("高姓名") = mdr("姓名")
    e.DataRow("最高分")=dt_score.Compute("max(" & dr("科目") & ")","[考试期数] = '" & e.DataRow("考试期数") & "' And [年级] = '" & e.DataRow("年级") & "'And [班别] = '" & e.DataRow("班别") & "' and 学号 = '" & mdr("学号") & "'")
    mdr = Nothing
    max = 0
    For Each tdr As DataRow In dt_scorepmjf.Select("[考试期数] = '" & e.DataRow("考试期数") & "' And [年级] = '" & e.DataRow("年级") & "'And [班别] = '" & e.DataRow("班别") & "' And " & dr("科目") & " like '↓%'")
        Dim s = tdr(dr("科目"))
        s = s.SubString(1,s.IndexOf("(")-1)
        If mdr Is Nothing Then
            mdr = tdr
        Else
            If val(s) > max Then
                max = val(s)
                mdr = tdr
            End If
        End If
    Next
   
    e.DataRow("低幅度")=max
   
    e.DataRow("低姓名") = mdr("姓名")
    
    e.DataRow("最低分")=dt_score.Compute("max(" & dr("科目") & ")","[考试期数] = '" & e.DataRow("考试期数") & "' And [年级] = '" & e.DataRow("年级") & "'And [班别] = '" & e.DataRow("班别") & "' and 学号 = '" & mdr("学号") & "'")

End If

你理解之前的代码了吗？不理解，先去恶补一下基本知识。

要获取什么值，之前的表一定要有对应的值，如果没有，就重新生成需要的表。

1、你要直接对进步幅度进行取值，那么你就必须每一科用一列去存储对应的信息。比如 用数值列存储上升的值，这样就能对此列进行排序取出最高最低或者统计范围了。这个是你用字符列↑21(92/113)所不能取代的。

2、要重新生成以下你的排名升降分析表，加入排名列，最好再加入分数列

是的，也就是把 ↑21(92/113) 的信息弄成数值类型，如 21 这样