以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  有个关于逻辑列的问题求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43471)
--  作者：roony99
--  发布时间：2013/12/8 10:22:00
--  有个关于逻辑列的问题求助
逻辑列（已核对）逐一勾选后，datacolchange事件用下面代码可以执行，
With Tables("考勤记录")
If e.DataCol.name = "已核对" AndAlso e.DataRow("已核对") = "1" Then
        .Current.Locked = True
ElseIf e.DataRow("已核对") = "0" Then
    .Current.Locked = False
End If
End With
但用重复填充或者代码全选则不能执行，全选代码:
If e.Form.Controls("全选").Checked
    DataTables("考勤记录").ReplaceFor("已核对" ,True)
End If
请问这个问题应该怎么解决？
--  作者：yan2006l
--  发布时间：2013/12/8 17:19:00
--  

.Current.Locked = True  改为 e.datarow.locked = true

currernt只是指你鼠标停留的那么一行而已
--  作者：roony99
--  发布时间：2013/12/8 19:01:00
--  
好的，谢谢指点
--  作者：程兴刚
--  发布时间：2013/12/8 19:12:00
--  
If e.Form.opend = true
    If e.Form.Controls("全选").Checked
        DataTables("考勤记录").ReplaceFor("已核对" ,True)
    End If
end if