以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何用代码实现对逻辑列勾选的取消?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54008)

--  作者:332595
--  发布时间:2014/7/20 2:02:00
--  [求助]如何用代码实现对逻辑列勾选的取消?

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

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

[此贴子已经被作者于2014-7-20 13:48:23编辑过]

--  作者:有点甜
--  发布时间:2014/7/20 9:29:00
--  
 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

--  作者:332595
--  发布时间:2014/7/20 12:42:00
--  
我也这样试过了,提示:未找到类型“Boolean”的公共成员“Checked”。
--  作者:有点甜
--  发布时间:2014/7/20 14:59:00
--  
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

--  作者:xiaoqiwei
--  发布时间:2014/7/20 16:24:00
--  
有点甜,他的问题不在这,取消不了的问题在另一个事件中
--  作者:332595
--  发布时间:2014/7/27 15:53:00
--  
老问题还是没有办法解决呀。。。
--  作者:有点甜
--  发布时间:2014/7/27 15:59:00
--  

 如下  

        

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:关于逻辑列锁定功能.table


--  作者:332595
--  发布时间:2014/7/28 1:27:00
--  
谢谢版主,就一点点小的改动就解决了大问题呀,还是怪自己钻研不够呀。。。图片点击可在新窗口打开查看