Select Case e.DataCol.Name
    Case "选项A","选项B","选项C"
        If e.NewValue = True Then
            Dim nms() As String = {"选项A","选项B","选项C"}
            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

如果直接从表里面操作，确实能达到排他性效果。但从窗口操作时，发现了问题，居然可以选择两个！也就是说只能排除一个。

如图：

此主题相关图片如下：clip_4.jpg

不知何故？