主题：求一小段代码类似逻辑列的排他式！

Select Case e.DataCol.Name
    Case "选项A","选项B","选项C","选项D"
        If e.NewValue = True Then
            Dim nms() As String = {"选项A","选项B","选项C","选项D"}
            For Each nm As String In nms
                If nm <> e.DataCol.Name AndAlso e.DataRow(nm) = True Then
                    e.DataRow(nm) = False
                End If
            Next
        End If
End Select