- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 分组统计手工编码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159810)
-- 发布时间：2021/1/9 20:55:00
-- 分组统计手工编码
求助 预算表 手工编码同表 分组汇总
此主题相关图片如下：微信截图_20210109205216.png
[此贴子已经被作者于2021/1/9 20:58:37编辑过]
-- 发布时间：2021/1/9 20:58:00
--
类似EXCEL表格的制定行相加
此主题相关图片如下：微信截图_20210109205805.png
[此贴子已经被作者于2021/1/9 20:58:10编辑过]
-- 发布时间：2021/1/10 20:01:00
--
只能根据条件查询统计：http://www.foxtable.com/webhelp/topics/1454.htm
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：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编辑过]
-- 发布时间：2021/1/11 13:39:00
--
pr = e.table.DataTable.Find
-- 发布时间：2021/1/12 0:21:00
--
此主题相关图片如下：企业微信截图_20210112002203.png
错误提示
[此贴子已经被作者于2021/1/12 0:21:34编辑过]
-- 发布时间：2021/1/12 8:49:00
--
啊---------
Dim pr As DataRow
pr = e.table.DataTable.Find("三级分类 Like \'%小计%\'") 想在找到包含小计的行整行标识出来
If pr IsNot Nothing Then