[求助]能不能生成这样的统计表和图表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]能不能生成这样的统计表和图表

共有3666人关注过本帖树形打印复制链接主题：[求助]能不能生成这样的统计表和图表

烟斗木木

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：44 积分：425 威望：0 精华：0 注册：2016/9/28 8:36:00

[求助]能不能生成这样的统计表和图表 发帖心情

Post By：2018/7/12 17:25:00 [只看该作者]

默认表主要由“商品编号、日期、部门”组成，一行对应一笔业务，没有数量金额这些的。

我想生成一个表，能够统计每月各部门的发生的业务数量。进而生成图表（图表我会，就是这个表不知道怎么弄）

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/12 19:06:00 [只看该作者]

你要统计行数？

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

烟斗木木

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：44 积分：425 威望：0 精华：0 注册：2016/9/28 8:36:00

Post By：2018/7/18 11:20:00 [只看该作者]

想问一下，设计交叉统计的时候，能不能把统计周期设定为上月15日至本月15日

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/18 11:59:00 [只看该作者]

以下是引用烟斗木木在2018/7/18 11:20:00的发言：
想问一下，设计交叉统计的时候，能不能把统计周期设定为上月15日至本月15日

参考

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

烟斗木木

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：44 积分：425 威望：0 精华：0 注册：2016/9/28 8:36:00

Post By：2018/7/18 17:40:00 [只看该作者]

想请您帮忙改一下代码，菜鸡琢磨了一下午还是没弄好。应该是红字部分的问题。

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

Dim br As String = sj.value

Dim cmb As WinForm.ComboBox

cmb = Forms("main").Controls("选择项目")

If cmb.SelectedIndex = 0 Then

Dim d As Date = DataTables("外部保洁").Compute("日期时间 = 'br'", "保洁地点 = '" & _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)

end if

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/18 18:05:00 [只看该作者]

参考代码

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)

烟斗木木

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：44 积分：425 威望：0 精华：0 注册：2016/9/28 8:36:00

Post By：2018/7/19 9:52:00 [只看该作者]

老师，两个问题：

1.怎么自己选择保存的路径呢，默认都保存到reports里了。

2.把上述代码做成按钮后，需要先点一下窗口内的表格，然后再点保存才行，不然报表内没有内容。PS：我用的是动态绑定表的方法。

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/19 10:22:00 [只看该作者]

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

1、

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

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