主题：求助程老师

Dim s As String = "不评定|六|五|四|三|二|一"
Dim a As String = "做都|哈哈|乐乐|嘿嘿|洗洗|帅帅"
Select Case e.DataCol.Name
    Case "分"
       
        If e.NewValue > -1 And e.NewValue < 7
            Dim n As Integer = e.NewValue
           
            e.DataRow("评定等级") = s.split("|")(n)
            e.DataRow("思想") = 55
            e.DataRow("政治") = 45 +n
        End If
        If e.DataRow("分") = 6 Then
            If e.NewValue > 1 And e.NewValue < 6
                Dim f As Integer = e.NewValue
                e.DataRow("备注") = s.split("|")(f)
            End If
            End If

这样可以达到 如果分数是6的人 循环Dim a As String = "做都|哈哈|乐乐|嘿嘿|洗洗|帅帅"
这个字符串吗

我现在浏览器有点问题 发不了实例文件啊 程老师 您给看下 是不是这样设置啊