分组统计手工编码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分组统计手工编码

共有2688人关注过本帖树形打印复制链接主题：分组统计手工编码

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

分组统计手工编码 发帖心情

Post By：2021/1/9 20:55:00 [只看该作者]

求助预算表手工编码同表分组汇总
图片点击可在新窗口打开查看

此主题相关图片如下：微信截图_20210109205216.png

[此贴子已经被作者于2021/1/9 20:58:37编辑过]

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2021/1/9 20:58:00 [只看该作者]

类似EXCEL表格的制定行相加

此主题相关图片如下：微信截图_20210109205805.png

[此贴子已经被作者于2021/1/9 20:58:10编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/10 20:01:00 [只看该作者]

只能根据条件查询统计：http://www.foxtable.com/webhelp/topics/1454.htm

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2021/1/11 2:13:00 [只看该作者]

If e.DataCol.Name = "三级分类" Then '发生变化的是产品列.

'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列

dr("月份_1月") = DataTables("核算表").Compute("Sum(月份_1月)","[三级分类] = '项目费用'")

End If

黄色部分如何定位项目小计

最后达成项目小计行汇总月份_1月的项目费用汇总

[此贴子已经被作者于2021/1/11 2:18:12编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/11 8:52:00 [只看该作者]

Dim pr As DataRow
    pr = e.DataTable.Find("三级分类 = '项目小计'")
    If pr IsNot Nothing Then
        pr("月份_1月")= DataTables("核算表").Compute("Sum(月份_1月)","[三级分类] = '项目费用'")
    End If

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2021/1/11 12:29:00 [只看该作者]

Dim pr As DataRow

pr = e.DataTable.Find("三级分类 Like '%小计%'") 想在找到包含小计的行整行标识出来

If pr IsNot Nothing Then

e.Style = "重要" '

End If

[此贴子已经被作者于2021/1/11 12:29:21编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/11 13:39:00 [只看该作者]

pr = e.table.DataTable.Find

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2021/1/12 0:21:00 [只看该作者]

此主题相关图片如下：企业微信截图_20210112002203.png

错误提示

[此贴子已经被作者于2021/1/12 0:21:34编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/12 8:49:00 [只看该作者]

啊---------

Dim pr As DataRow

pr = e.table.DataTable.Find("三级分类 Like '%小计%'") 想在找到包含小计的行整行标识出来

If pr IsNot Nothing Then

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

主题：分组统计手工编码