请教:我有个Excel报表模版:细节区的表名,排序字段名都没错,如下: <End>
<HeaderRow>
<支付汇总,支付对象简称|合同or费用编号|尾款是否付清,-20> <All>
<GroupFooter,支付汇总,支付对象简称>
<End>
执行代码如下(略去了细节区数据筛选条件),运行后输出的报表中,细节区数据始终是空的,实在找不到原因,而此段代码在其它报表上应用都是正确的:
Dim mb As String '模版
Dim bm As String '表名
Dim xm As String = forms("报表输出").controls("DropBox1").text '项目
Dim zxm As String = forms("报表输出").controls("DropBox2").text '子项目
If xm
<> "" Then
mb = "Attachments\项目支付汇总统计-模版.xls"
bm = "Reports\项目支付汇总统计"
Else
msgbox("请选择项目!",0,"提示:")
Return
End If
Dim Book As New XLS.Book(ProjectPath & mb)
Dim d As Date = Date.Today()
Dim d1 As String = CStr(d)
d1 = d1.Replace("/","-")
Book.Build() '生成细节区
Dim fl As String = ProjectPath
& bm & "-"
& (d1) & ".xls"
Book.Save(fl) '保存工作簿
Dim Proc As
New Process '打开工作簿
Proc.File = fl
Proc.Start()
e.Form.Close()