主题：[求助]逻辑列的一个问题？

Select Case e.DataCol.Name

    Case "已申请","已完成"

        If e.NewValue = True Then

            Dim nms() As String = {"已申请","已完成"}

            For Each nm As String In nms

                If nm <> e.DataCol.Name AndAlso e.DataRow(e.DataCol) = True Then

                    e.DataRow(nm) = False

                End If

            Next

        End If

End Select