以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何逻辑列勾选的行将不打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56155)
--  作者：baixiaobai
--  发布时间：2014/8/30 16:22:00
--  如何逻辑列勾选的行将不打印

求助,   如果在表中,有一列是逻辑列,如果勾选的话,那这行的金额列将被***代替,请问如何实现啊????
--  作者：Bin
--  发布时间：2014/8/30 16:25:00
--  
只是显示为***
可以在DrawCell事件实现

if e.col.name="金额" then
   if e.row("逻辑") then
     e.text="***"
   end if
end if
--  作者：baixiaobai
--  发布时间：2014/8/30 16:30:00
--  

我刚才没表达清楚~

 

 是打印的时候
--  作者：Bin
--  发布时间：2014/8/30 16:32:00
--  
用专业报表吧,或者添加一个全局变量

if e.col.name="金额" then
   if e.row("逻辑") andalso vars("X") then
     e.text="***"
   end if
end if


打印的时候
把 vars("X")=true 设置为True
打印
打印完毕后 vars("X")=False
--  作者：狐狸爸爸
--  发布时间：2014/8/30 16:41:00
--  

或者你先筛选，再打印：

 

Tables("xxx").Filter = "逻辑列 = True"

打印代码