- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 不能按条件打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=162036)
-- 发布时间：2021/4/3 17:58:00
-- 不能按条件打印
我在设置EXCEL报表时，设置了打印条件：<是否中标= \'true\'>，“是否中标”也是设置为逻辑型的，实际打印时，将所有的明细都打印出来了，请问设置逻辑型的条件如何设置？请指教，谢谢！
-- 发布时间：2021/4/4 17:46:00
--
估计是:打印条件：<是否中标= \'true\'>放的地方不对
-- 发布时间：2021/4/5 20:55:00
--
<是否中标= true>
-- 发布时间：2021/4/6 21:28:00
--
修改后，没有起作用。
我想实现打开“询价信息”窗体后，点击左侧的筛选树，选中相应的”采购单号”后，点击“打印采购审批表”按钮，就能打印出该采购单号下的已中标的记录。
我试着在目录树的level=3的位置并列增加“已中标”和“未中标”两个节点，没能实现，
我也试着在EXCEL报表中设置打印条件（如上），打印出的是第一个“采购单号”下的所有明细。
请指教，谢谢！
-- 发布时间：2021/4/6 21:33:00
--
修改后，没有起作用。 我想实现打开“询价信息”窗体后，点击左侧的筛选树，选中相应的”采购单号”后，点击“打印采购审批表”按钮，就能打印出该采购单号下的已中标的记录。 我试着在目录树的level=3的位置并列增加“已中标”和“未中标”两个节点，没能实现， 我也试着在EXCEL报表中设置打印条件（如上），打印出的是第一个“采购单号”下的所有明细。 请指教，谢谢！ |
-- 发布时间：2021/4/6 21:56:00
--
execl模板发上来
-- 发布时间：2021/4/7 22:05:00
--
好的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:固定资产购建审批表.xls |
-- 发布时间：2021/4/7 22:18:00
--
好的 ，可以通过左侧的目录树点选2021年4月下的“采购单号”，再点击“打印采购审批表”按钮，进行调试，
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:固定资产购建审批表.xls |
-- 发布时间：2021/4/8 9:39:00
--
模板的条件仅对父表有效，是否中标是子表的列，无法设置条件，只能是根据条件重新加载资本的数据，打印后再还原数据
打印按钮：
Tables("采购报价表").StopRedraw
Dim filter2 As String = Tables("采购报价表").Filter
Dim filter As String = DataTables("采购报价表").LoadFilter
DataTables("采购报价表").LoadFilter = " 是否中标 = true"
DataTables("采购报价表").Load
Dim Book As New XLS.Book(ProjectPath & "Attachments\\固定资产购建审批表.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\固定资产购建审批表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成报表
Book.Save(fl)
DataTables("采购报价表").LoadFilter = filter
DataTables("采购报价表").Load
Tables("采购报价表").Filter = Filter2
Tables("采购报价表").ResumeRedraw
Dim Proc As New Process
Proc.File = fl
proc.Verb = "Print"
Proc.Start()
-- 发布时间：2021/4/8 10:22:00
-- 打印出的是空表
修改后，打印出表中的只有主表的第一条记录的“采购单号”，也没有该“采购单号”下的中标明细，烦请老师在指点一下，谢谢！