主题：[求助]如何用代码实现对逻辑列勾选的取消？

一个表中有“锁定”逻辑列，当点击之后会有一个判断，选择是之后即锁定当前行，代码如下：

DataColChanging

 

If e.DataCol.Name = "锁定" Then '如果是锁定列的内容变动
    If e.NewValue = True Then '而且变动后的值是True(已勾选)
        Dim xz As dialogresult
        xz = MessageBox.Show("你确定要锁定此行吗,锁定之后将无法编辑该行内容?" , "锁定提示" , MessageBoxButtons.OKCANCEL , MessageBoxIcon.Question)
        If xz = DialogResult.OK Then
            e.DataRow.Locked = True '那么锁定此行
        Else
            e.Cancel = True
        End If
    Else
        e.Cancel = True
    End If
End If

 

现在当双击后能够取消当前行的锁定并对点选框取消勾选，代码如下可惜无法取消勾选，求指导：

 

注：不是取消该行首的勾选，而是要对逻辑列的点选框取消勾选。

DoubleClick

If e.Col.Name = "锁定" Then
    Dim xz As dialogresult
    xz = MessageBox.Show("当前行已经被限制编辑内容,你确定要【解锁】此行吗" , "锁定提示" , MessageBoxButtons.OKCancel , MessageBoxIcon.Question)
    If xz = DialogResult.OK Then
        e.Row.Locked = False
        MessageBox.Show("解锁成功")
        e.Row("锁定").Checked = False
    Else
        e.Cancel = True
    End If
   
End If

 

 

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

点击浏览该文件:关于逻辑列锁定功能.table

 Dim xz As dialogresult
xz = MessageBox.Show("当前行已经被限制编辑内容,你确定要【解锁】此行吗" , "锁定提示" , MessageBoxButtons.OKCancel , MessageBoxIcon.Question)
If xz = DialogResult.OK Then
    e.Row.Locked = False
    e.Row("锁定").Checked = False
    MessageBox.Show("解锁成功")
Else
    e.Cancel = True
End If

我也这样试过了，提示：未找到类型“Boolean”的公共成员“Checked”。

Dim xz As dialogresult
xz = MessageBox.Show("当前行已经被限制编辑内容,你确定要【解锁】此行吗" , "锁定提示" , MessageBoxButtons.OKCancel , MessageBoxIcon.Question)
If xz = DialogResult.OK Then
    e.Row.Locked = False
    e.Row("锁定") = False
    MessageBox.Show("解锁成功")
Else
    e.Cancel = True
End If

有点甜，他的问题不在这，取消不了的问题在另一个事件中

老问题还是没有办法解决呀。。。

 如下  

        

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

点击浏览该文件:关于逻辑列锁定功能.table

谢谢版主，就一点点小的改动就解决了大问题呀，还是怪自己钻研不够呀。。。