以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  当前界面所有行全选后，把逻辑列全部置为真（即选中状态）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57081)
--  作者：wh420
--  发布时间：2014/9/17 17:39:00
--  当前界面所有行全选后，把逻辑列全部置为真（即选中状态）

With Tables("订单")
     .Select(0,0, .Rows.Count -1, .Cols.Count -1)
End With

 

以上代码是相当于框选当前页所有行，怎么实现选中所有行后把这些行的逻辑列都置为真？麻烦老师代码指教一下。
--  作者：有点甜
--  发布时间：2014/9/17 17:43:00
--  
DataTables("订单").ReplaceFor("逻辑列", true, Tables("订单").Filter)
--  作者：wh420
--  发布时间：2014/9/17 22:13:00
--  
以下是引用有点甜在2014-9-17 17:43:00的发言：
DataTables("订单").ReplaceFor("逻辑列", true, Tables("订单").Filter)

这行代码我放到哪合适呢？
--  作者：有点甜
--  发布时间：2014/9/17 22:14:00
--  
以下是引用wh420在2014-9-17 22:13:00的发言：

这行代码我放到哪合适呢？

 

写到按钮中去。
--  作者：苍风霁月
--  发布时间：2014/9/17 22:15:00
--  

学习下，AfterSelRangeChange这里是不是也可？

[此贴子已经被作者于2014-9-17 22:32:01编辑过]
--  作者：wh420
--  发布时间：2014/9/18 11:21:00
--  
以下是引用有点甜在2014-9-17 17:43:00的发言：
DataTables("订单").ReplaceFor("逻辑列", true, Tables("订单").Filter)

这样写对吗？完整的功能

With Tables("订单")
     .Select(0,0, .Rows.Count -1, .Cols.Count -1)
End With

DataTables("订单").ReplaceFor("逻辑列", true, Tables("订单").Filter)
--  作者：有点甜
--  发布时间：2014/9/18 11:22:00
--  
  对。
--  作者：wh420
--  发布时间：2014/9/18 11:39:00
--  
会了，谢谢老师们