- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 跨表统计 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72483)
-- 发布时间：2015/7/30 17:38:00
-- 跨表统计
在收支明细中输入明细，在项目总体中相应栏目自动统计相关数据，我输入了一笔，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学院基建foxtable.table |
-- 发布时间：2015/7/30 17:40:00
--
没难懂，能否具体点？
-- 发布时间：2015/7/30 17:44:00
--
在收支明细中输入项目名称、项目子项、收支类别，在项目总体中按项目名称、项目子项及收支类别中统计相应的金额
-- 发布时间：2015/7/30 17:45:00
--
收支类别中包括财政拔款、学院拔款等类别
-- 发布时间：2015/7/30 17:53:00
--
可以看看：
http://www.foxtable.com/help/topics/0681.htm
看你写的代码，可能还不能独立搞定，帮助做好了：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目74.table |
-- 发布时间：2015/7/30 18:08:00
--
谢谢，
-- 发布时间：2015/7/30 18:11:00
--
进一步问一下，能否根据项目明细中发生的项目名称、项目子项，能够自动增加项目总体中项目名称、项目子项中
-- 发布时间：2015/7/30 19:58:00
--
你好，你帮助我设计的代码怎么数据不动，换一次表格它都会自动计算一次。
-- 发布时间：2015/7/30 20:42:00
--
切换表计算一次就行了。
7楼的问题。
收支明细表DataColChanged事件
Select Case e.DataCol.name
Case "项目名称","项目子项"
If e.DataRow.IsNull("项目名称") = False And e.DataRow.IsNull("项目子项") = False
Dim dr As DataRow = DataTables("项目总体").Find("项目名称 = \'" & e.DataRow("项目名称") & "\' and 项目子项 = \'" & e.DataRow("项目子项") & "\'")
If dr Is Nothing Then
Dim r As Row = Tables("项目总体").AddNew
r("项目名称") = e.DataRow("项目名称")
r("项目子项") = e.DataRow("项目子项")
End If
End If
End Select