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