Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:在表A上如何在指定单元格内合计表B某列的数据

1楼
hty4000 发表于:2010/3/4 9:48:00
请问在表A上的指定单元格内合计表B某列的数据,这样的代码如何写?多谢
2楼
狐狸爸爸 发表于:2010/3/4 10:12:00

不复杂,看看DataColChanged事件,以及事件实例中的用事件进行计算的部分。

3楼
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编辑过]
4楼
hty4000 发表于:2010/3/4 11:17:00
求助!!!
5楼
mr725 发表于:2010/3/4 11:19:00
给个例子 或 给两张表的图片来看看呀~ 
6楼
hty4000 发表于:2010/3/4 11:39:00
已解决,
指定到统计表第11行营业税列合计“全部临散户”表乡镇为城中临散的营业税可以这样:


Tables("统计表")(10,"营业税")=Tables("全部临散户").Compute("Sum(营业税)", "乡镇 = '城中临散'")
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.