我想在任务面板的其中一个按成绩段分类显示相应的人数，下面这个代码用作表的统计代码，在任务面板中请教如何修改下面的代码？？

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("学生成绩")
If e.DataCol.Name = "科目" And dr.IsNull("科目") = False Then
    dr("分布_60分以下") = dt.Compute("Count(姓名)", dr("科目") & " < 60")
    dr("分布_60分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 60 And " & dr("科目") & " < 70" )
    dr("分布_70分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 70 And " & dr("科目") & " < 80" )
    dr("分布_80分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 80 And " & dr("科目") & " < 90" )
    dr("分布_90分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 90 And " & dr("科目") & " < 100" )
    dr("分布_100分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 100 And " & dr("科目") & " < 110" )
    dr("分布_110分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 110 And " & dr("科目") & " < 120" )
    dr("分布_120分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 120 And " & dr("科目") & " < 130" )
    dr("分布_130分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 130" )
End If

我现在的任务栏调用代码是

\'--------以下是定义职名栏-----------------------

Dim zm As WinForm.TopicPage = fll.Pages("职名")
zm.Links.Clear

For Each zmmc As String In DataTables("词典").GetComboListString("名称","类别 = \'职名\'","_identify").Split("|")
    Dim kg As String = new String(" ",14 - zmmc.Length*2)    \'定义前面的对齐空格
    Dim rs As String =  DataTables("职工基本信息").Compute("count(_identify)","职名 = \'" & zmmc & "\'")   \'定义统计的数量 只能用string  不能用 Integer,因为整数型不能统计长度
    Dim kg2 As String  = new String(" ",3- rs.Length)      \'定义人数括号数字间的空格
    zm.Links.Add(zmmc,zmmc & kg & "("  & kg2 &  rs  & "人)")    \'合成标题
Next
\'-------以上是定义职名栏-------------------------

类似代码

Dim Count As Integer = dt.Compute("Count(姓名)", "分数 >= 70 And 分数 < 80" )

zm.Links.Add("分布_70分以上", "分布_70分以上(" & count & ")")