主题：求助报表能不能使用窗口中的表格数据？

Dim ks As Date= Date.Today
Dim js As Date= Date.Today.AddDays(1)
MessageBox.Show( ks & js)
Dim dp As String="测试店铺13"
Dim Val As Integer
    Val = DataTables("退件扫描").Compute("Count(运单编号)","扫描类型 = '已退' and  上下站 = '" & dp & "'and 扫描时间 <= #" & js & "# and 扫描时间 >= #" & ks & "# ")  '
If Val >0 Then
MessageBox.Show(Val )
Dim Book As New XLS.Book(ProjectPath & "Attachments\退件报表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\退件报表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(6,6).Value = "<扫描类型='已退'and 上下站='"& dp &"'and 扫描时间 <= #' & js & '# And 扫描时间 >= #' & ks & '# >"   '写入打印条件
Sheet(4,2).Value = dp
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
Else
MessageBox.Show("当前筛选条件下无数据,请重新筛选!")

方法1、直接赋值，如：Sheet(4,2).Value = 某临时表.current（“某列”）

参考：http://www.foxtable.com/webhelp/topics/1155.htm

Dim Book As New XLS.Book("C:\Users\Admin\Desktop\退件报表.xls") '打开模板
Dim fl As String = "C:\Users\Admin\Desktop\退件报表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim ii As Integer=3
Sheet(3,2).Value= Date.Today
Sheet(4,2).Value= "店铺1"
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl

只能写非明细单元格。上传实例看看

我还是想做

统计关联表

这节这样的表格

exec报表里面的计数为什么不是我选择的数量？

[$退件扫描,Count(运单编号)]

这里出现的是所有的数量，并不是我选择生成的数量

5楼的问题看看：http://www.foxtable.com/webhelp/topics/1982.htm