主题：逻辑列的选取

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