- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请教一下Excel报表的条件语句 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43163)
-- 发布时间：2013/12/1 1:11:00
-- [求助]请教一下Excel报表的条件语句
请教一下打印的条件如何设置：
有主表及子表，打印Excle报表时需按照textbox的值输出Excel报表，需要输出主表及子表的内容，条件为子表的EntDate。
如条件为：子表List的EndDate = 2013-10 输出报表如例子“Test\\Reports\\1.xsl”，何填写语句，谢谢大家！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.rar |
-- 发布时间：2013/12/1 6:51:00
--
http://www.foxtable.com/help/topics/2626.htm
-- 发布时间：2013/12/1 20:46:00
--
以下是引用y2287958在2013-12-1 6:51:00的发言：
http://www.foxtable.com/help/topics/2626.htm
http://www.foxtable.com/help/topics/2626.htm
谢谢您的回答，不过你叫我看的我实例已经实现了，只是如果按照帮助的话主表如果条件换了EntDate主表信息就没有了，求解？谢谢
-- 发布时间：2013/12/1 21:02:00
--
我看了一下，你位置写错了
Dim Book As New XLS.Book(ProjectPath & "Attachments\\1.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\1.xls"
If e.Form.Controls("TextBox1").Text = Nothing Then
MessageBox.Show("No Print Info !")
Else
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,5).Value = "<EntDate = # " & e.Form.Controls("TextBox1").Text & "#>" \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
End If
-- 发布时间：2013/12/1 23:00:00
--
谢谢有点甜，再请教假设主表Info没有EntDate列，报表条件为子表List的EntDate，依然需输出主表及子表条件符合的信息，如附件的表，请问如何写？谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1.xls |
-- 发布时间：2013/12/1 23:11:00
--
条件写在子表同一行，然后引用父表数据
-- 发布时间：2013/12/2 10:32:00
--
谢谢有点甜的帮助，问题已解决，可看来我还需要在好好学习一下帮助。
