主题：请教杂项中自动计算的代码如何写？

Dim Ls As String ="张三,李四,王五,马七,杨八,李二,财经,和平,何亮,黑乎,白板,高挂"

If  ("," & Ls & ",").IndexOf("," & e.DataCol.Name & ",") > -1 Then

    Dim dr As DataRow = e.DataRow

    dr("最高分") = dr("张三")

    dr("最低分") = dr("张三")

    For Each s As String In Ls.split(",")

        dr("最高分") =Math.Max(dr("最高分"),dr(s))

        dr("最低分") =Math.Min(dr("最低分"),dr(s))

    Next

End If