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 = "做都|哈哈|乐乐|嘿嘿|洗洗|帅帅"
这个字符串吗

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

学会用数组：

Dim Vals() As String = {"做都","哈哈","乐乐","嘿嘿","洗洗","帅帅"}
Dim i As Integer = 3
MessageBox.show("第四个是: " & vals(3))
For i = 0 To 5
   MessageBox.show("第" & (i+1) & "个是: " & vals(i))
Next