- 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=5183)
-- 发布时间：2009/11/28 11:29:00
-- 【已解决上传共享】代码按条件分组统计问题
请帮忙给个公式：
表A图号和序号与表B图号和序号相同时，表A准结=表B准结1合计+准结2合计+终结3合计（条件状态列=执行）；
表A加工=表B加工合计（条件状态列=执行）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.table |
[此贴子已经被作者于2009-11-28 18:28:58编辑过]
-- 发布时间：2009/11/28 17:39:00
--
\'表ADataColChanged事件代码
Dim dt As DataTable = DataTables("表B")
Dim dr As DataRow = e.DataRow
Dim str As String = "图号 = \'" & dr("图号") & "\' And 序号 = \'" & dr("序号") & "\' And 状态 = \'执行\'"
if e.DataCol.Name = "图号" OrElse e.DataCol.Name = "序号" Then
Dim r As DataRow = dt.Find(str)
if r IsNot Nothing Then
dr ("准结") = dt.Compute("Sum(准结1)",str) + dt.Compute("Sum(准结2)",str) + dt.Compute("Sum(准结3)",str)
dr("加工") = dt.Compute("Sum(加工)",str)
End If
End If
-- 发布时间：2009/11/28 18:26:00
--
太感谢了，传上附件供大家共享
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目4.table |