以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  添加按钮，全部锁定行，除逻辑列不确定的除外  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33311)
--  作者：hwj3551670
--  发布时间：2013/5/15 17:07:00
--  添加按钮，全部锁定行，除逻辑列不确定的除外

在来求教一个问题

有一列是逻辑格式，逻辑格式已设置为确定，不确定 ，如何添加一个按钮实现全部锁定行，但除逻辑列不确定的除外

 
--  作者：Bin
--  发布时间：2013/5/15 17:08:00
--  
循环所有行,判断逻辑列是否为TRUE 是TRUE就锁定行.
--  作者：hwj3551670
--  发布时间：2013/5/15 17:12:00
--  

但如果我一张表有好几个逻辑格式的列呢
--  作者：XYT
--  发布时间：2013/5/15 17:14:00
--  

多列就判断那几列的行咯，如果是以一列为标准就判断那一列就可以了。
--  作者：hwj3551670
--  发布时间：2013/5/15 17:19:00
--  

With DataTables("订单").DataRows(0) \'
    If .IsNull("结账日期") = False Then \'
        .Locked = True \'    End If
End With

是不是这样
--  作者：XYT
--  发布时间：2013/5/15 17:24:00
--  
这样只是判断是不是空就锁定了
--  作者：hwj3551670
--  发布时间：2013/5/15 17:29:00
--  
哪应该如何写
--  作者：hwj3551670
--  发布时间：2013/5/15 17:30:00
--  

我刚测试这个  只锁定了第一行  其余的都没有锁定
--  作者：XYT
--  发布时间：2013/5/15 17:34:00
--  

 

在DataColChanged

 If e.DataCol.Name = "已结帐" Then \'如果是已结帐列的内容变动
    If e.NewValue = True Then \'而且变动后的值是True(已勾选)
        e.DataRow.Locked = True \'那么锁定此行
    End If
End If
[此贴子已经被作者于2013-5-15 17:38:17编辑过]
--  作者：hwj3551670
--  发布时间：2013/5/15 17:39:00
--  
怎么没有了