主题：逻辑列的排他式选择

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

如果是正本、副本，窗口表一样可以用

此主题相关图片如下：qq截图20160918091701.png

具体上传例子说明操作逻辑

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

绑定的情况下，把DataColChanging事件代码改为放到DataColChanged事件即可