主题：逻辑列勾选的问题

加上代码判读

Select Case e.DataCol.Name
    Case "补计划_补否"
        If e.oldvalue <> Nothing Then
            If  e.OldValue=True Then
                If MessageBox.Show("确定---取消勾选吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then  '原来为true
                    e.NewValue=False
                    e.DataRow("补计划_数量")=Nothing
                Else
                    e.Cancel=True
                End If
            Else
                If MessageBox.Show("确定勾选吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then   '原来为false
                    e.NewValue=True
                Else
                    e.Cancel=True
                End If
            End If
        end if
End Select