专家坐堂-[求助]　一天没找出原因，快疯了！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [求助]　一天没找出原因，快疯了！
请教：我有个Excel报表模版：细节区的表名，排序字段名都没错，如下：

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<End>

<支付汇总,支付对象简称|合同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()