主题：[求助]能不能生成这样的统计表和图表

你要统计行数？

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

参考

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

参考代码

Dim sj As WinForm.DateTimePicker = e.Form.Controls("选择日期")
Dim d As Date = sj.value

Tables("外部保洁").filter = "日期时间 = '" & d & "' and 保洁地点 = '" & _UserGroup & "'"
Dim tmp As String = ProjectPath & "Attachments\每日报表wb.xls"
Dim rpt As String = ProjectPath & "Reports\" & d.Year & "-" &  d.Month & "-" &  d.day & _UserGroup & "-外保报表.xls"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.Save(rpt)

2、你选中日期了没有？表格筛选了没有？你的模板是如何设计的？模板发上来看看

1、

Dim dlg As new SaveFileDialog
dlg.Filter = "excel|*.xls;*.xlsx"
dlg.InitialDirectory = "d:\"
dlg.FileName = d.Year & "-" &  d.Month & "-" &  d.day & _UserGroup & "-外保报表.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Tables("外部保洁").filter = "日期时间 = '" & d & "' and 保洁地点 = '" & _UserGroup & "'"
    Dim tmp As String = ProjectPath & "Attachments\每日报表wb.xls"
    Dim rpt As String = dlg.FileName
    Dim Book As New XLS.Book(tmp)
    Book.Build()
    Book.Save(rpt)
End If

没看懂你的意思。

得到Tables("main_Table8")以后，如果要对此表格数据修改，直接循环每一行、每一列修改值，不就好了？

请上传具体实例说明和测试。