下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退休生存认证表.xls

Dim nd As String = e.Form.Controls("ComboBox1").Text

Dim sd As String = e.Form.Controls("ComboBox2").Text

Dim str As String = ""

str &= DataTables("退休认证资料").GetComboListString("公民身份号码", "认证年度 = \'" & nd & "\' Or 认证时段 = \'" & sd & "\'").replace("|", "\',\'")

Tables("退休生存人员").filter = "公民身份号码 In (\'" & str.trim(",") & "\')"

\'==========================以上是筛选已经认证的人员==============================

Dim Book As New XLS.Book(ProjectPath & "报表文件\\退休生存认证表.xls")

Book.Build()

Book.Save(ProjectPath & "输出报表\\退休生存认证表.xls")

Dim Proc As New Process

Proc.File = ProjectPath & "输出报表\\退休生存认证表.xls"

Proc.Start()

\'==============================以上是认证报表打印=================================

Tables("退休生存人员").Filter = ""

e.Form.Close

此主题相关图片如下：222.jpg

我要如何设置才能实现，在报表中引用窗口的年度与时段呢？

用vars变量即可

http://www.foxtable.com/webhelp/scr/1391.htm

感谢甜老师的帮助，但我还是不明白如何根据窗口中的“ComboBox1”设置Var变量的初始值或者说是赋值给Var变量？

首先我在Enter事件中已经写入代码：e.Sender.ComboList = DataTables("退休认证资料").GetComboListString("认证年度",,"_Identify")

其次就是我已经在窗口中的“ComboBox1”选择了字符，此时Excel报表要如何引用ComboBox1的字符值呢？

方法一：http://www.foxtable.com/webhelp/scr/0704.htm

方法二：ComboBox1的TextChanged事件写代码 vars("test") = e.sender.text

然后，模板那里引用 [!test]

那就用第二种方法吧，也很简便。