- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何提取其它表中数汇总 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23708)
-- 发布时间：2012/9/17 16:56:00
-- 如何提取其它表中数汇总
我编写了｛日报表｝和｛检验单｝，我想在｛检验单｝中输入本工序名称和规格型号时，能够将｛日报表｝中的所以涉及到这两项内容的生产数汇总，并自动填写在｛检验单｝生产数栏内，特请教如何编写程序代码。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目87.table |
-- 发布时间：2012/9/17 17:14:00
--
代码如下
Select Case e.DataCol.Name
Case "本工序","规格型号"
If e.DataRow("本工序") <> "" AndAlso e.DataRow("规格型号") <> "" Then
Dim sum As Integer = DataTables("日报表").Compute("Sum(生产数)", "本工序 = \'" & e.DataRow("本工序") & "\' And 规格型号 = \'" & e.DataRow("规格型号") & "\'")
e.DataRow("生产数") = sum
End If
End Select