窗口中，有条件汇总代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口中，有条件汇总代码

共有2192人关注过本帖树形打印复制链接主题：窗口中，有条件汇总代码

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

窗口中，有条件汇总代码 发帖心情

Post By：2016/8/19 11:57:00 [只看该作者]

此主题相关图片如下：c1.png

想编写汇总按钮代码：在检索期间和部门输入内容后，单击“汇总”按钮，就会在总人数处汇总人数，在总加班H汇总部门的所有人员的加班数，不会写代码，请老师帮写写呗，跟老师学学。

[此贴子已经被作者于2016/8/19 12:33:31编辑过]

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/8/19 12:51:00 [只看该作者]

Dim dt As DataTable = DataTables("出勤汇总")

Dim Total As Double

Dim bumens As List(Of String)

bumens = dt.GetValues("部门")

For Each bumen As String In bumens

Total = dt.Compute("Sum(加班合计H)", "[部门] = '" & bumen & "'")

e.Form.Controls("TextBox3").Text = Total

以上是以部门为条件的，没有加入时间条件，请问老师如何加入时间条件，谢谢！

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/19 14:17:00 [只看该作者]

查询，参考

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

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/8/19 14:42:00 [只看该作者]

老师，查询的代码已经搞定了，没有问题，

只是右边部门统计处的汇总

Dim dt As DataTable = DataTables("出勤汇总")

Dim Total As Double

Dim bumens As List(Of String)

bumens = dt.GetValues("部门")

For Each bumen As String In bumens

Total = dt.Compute("Sum(加班合计H)", "[部门] = '" & bumen & "'")

e.Form.Controls("TextBox3").Text = Total

Total = dt.Compute("Sum(欠勤合计H)", "[部门] = '" & bumen & "'")

e.Form.Controls("TextBox4").Text = Total

Total = dt.Compute("count(姓名)", "[部门] = '" & bumen & "'")

e.Form.Controls("TextBox2").Text = Total

如何才能加上 “检索期间”的条件呢

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/19 14:46:00 [只看该作者]

直接写

Dim dt As DataTable = DataTables("出勤汇总")

Dim Filter As String = "[部门] = '" & e.Form.Controls("cccc").Value & "' and 日期 >= #" & e.Form.Controls("aaa").Value & "# and 日期 <= #" & e.Form.Controls("bbb").Value & "#"

e.Form.Controls("TextBox3").Text = dt.Compute("Sum(加班合计H)", filter)

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/8/19 15:14:00 [只看该作者]

按照老师说的，解决了，谢谢！

下一主题 >> << 上一主题

主题：窗口中，有条件汇总代码