主题：[求助]报表数值引用？

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

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

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

以下是打印认证表的按钮代码： 

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]

第一种方法还是不会,感觉第二种简单直接些.

 

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