| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 在表A上如何在指定单元格内合计表B某列的数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=6091) |
| -- 作者：hty4000 -- 发布时间：2010/3/4 9:48:00 -- 天问者工作室作品 之 截个小图 请问在表A上的指定单元格内合计表B某列的数据，这样的代码如何写？多谢 |
| -- 作者：狐狸爸爸 -- 发布时间：2010/3/4 10:12:00 -- 不复杂，看看DataColChanged事件，以及事件实例中的用事件进行计算的部分。 |
| -- 作者：hty4000 -- 发布时间：2010/3/4 10:19:00 -- 已经用这个方法统计"征收数"表列的合计数，现在想在指定单元格合计另一张表列的合计数，好象只能指定一张表，同时指定另一张表结果就不对了 If e.DataCol.Name = "乡镇" Then \'发生变化的是乡镇列. \'则累计订单表中同乡镇总的税种金额,然后赋值给变动行的税种列 e.DataRow("营业税") = DataTables("征收数").Compute("Sum(营业税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("企业所得税") = DataTables("征收数").Compute("Sum(企业所得税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("个人所得税") = DataTables("征收数").Compute("Sum(个人所得税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("资源税") = DataTables("征收数").Compute("Sum(资源税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("城建税") = DataTables("征收数").Compute("Sum(城建税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("房产税") = DataTables("征收数").Compute("Sum(房产税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("印花税") = DataTables("征收数").Compute("Sum(印花税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("城镇土地使用税") = DataTables("征收数").Compute("Sum(城镇土地使用税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("土地增值税") = DataTables("征收数").Compute("Sum(土地增值税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("车船税") = DataTables("征收数").Compute("Sum(车船税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("契税") = DataTables("征收数").Compute("Sum(契税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("耕地占用税") = DataTables("征收数").Compute("Sum(耕地占用税)","[乡镇] = \'" & e.NewValue & "\'") e.DataRow("教育费附加") = DataTables("征收数").Compute("Sum(教育费附加)","[乡镇] = \'" & e.NewValue & "\'") End If 想合计另一张表到当前统计表中,两张表的税种是一样的，只是乡镇名称不一样 就想直接在统计表的下方指定一行统计另一张表的各税种的合计数，不知怎么实现？ [此贴子已经被作者于2010-3-4 10:38:53编辑过]
|
| -- 作者：hty4000 -- 发布时间：2010/3/4 11:17:00 -- 求助！！！ |
| -- 作者：mr725 -- 发布时间：2010/3/4 11:19:00 -- 给个例子 或 给两张表的图片来看看呀～ |
| -- 作者：hty4000 -- 发布时间：2010/3/4 11:39:00 -- 已解决， 指定到统计表第11行营业税列合计“全部临散户”表乡镇为城中临散的营业税可以这样： Tables("统计表")(10,"营业税")=Tables("全部临散户").Compute("Sum(营业税)", "乡镇 = \'城中临散\'") |