主题：求助

If e.DataCol.Name = "学生答案" Or e.DataCol.Name = "多选题答案" Then

    If e.DataRow.IsNull("多选题答案") OrElse e.DataRow.IsNull("学生答案") Then

        e.DataRow("评分") = "F"

    Else

        Dim Isright As Boolean

        Isright = e.DataRow("多选题答案") = e.DataRow("学生答案")

        If not Isright Then

            Dim a1() As String = e.DataRow("多选题答案").split(",")

            Dim a2() As String = e.DataRow("学生答案").split(",")

            For Each a As String In a1 Then

                If Array.IndexOf(a2,a) = -1 Then

                    Isright = False

                    Exit For

                End If

            Next

            Isright  = True

        End If

        e.DataRow("评分") = IIF(Isright ,"T","F")

    End If

End If