- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 跨表引用和跨表统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89938)
-- 发布时间：2016/9/1 16:52:00
-- 跨表引用和跨表统计
此主题相关图片如下：123.jpg
-- 发布时间：2016/9/1 17:19:00
--
设置好代码之后，对于原有数据，你要重置一下列，才会生效：
http://www.foxtable.com/webhelp/scr/1469.htm
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目270.table |
-- 发布时间：2016/9/1 17:25:00
--
代码没有问题，已经有的数据需要“重置列”：然后在“数据表”功能区“列相关”功能组，单击下面的“重置”按钮
-- 发布时间：2016/9/1 23:20:00
--
之前的代码，统计“产品名称”“型号规格”都有。
为了统计“型号规格”为空的行，写了下面代码，但会把有“型号规格”的也统计进来。怎样才能避免这种情况。
Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("项目订购表")
If dr.IsNull("型号规格") Then
dr("A项目") = dt.Compute("Sum(数量)","[产品名称] = \'" & dr("产品名称") & "\' and [项目] = \'A项目\'")
dr("B项目") = dt.Compute("Sum(数量)","[产品名称] = \'" & dr("产品名称") & "\' and [项目] = \'B项目\'")
dr("C项目") = dt.Compute("Sum(数量)","[产品名称] = \'" & dr("产品名称") & "\' and [项目] = \'C项目\'")
Else
Select Case e.DataCol.Name
Case "产品名称","型号规格"
dr("A项目") = dt.Compute("Sum(数量)","[产品名称] = \'" & dr("产品名称") & "\' and [型号规格] = \'" & dr("型号规格") & "\'and [项目] = \'A项目\'")
dr("B项目") = dt.Compute("Sum(数量)","[产品名称] = \'" & dr("产品名称") & "\' and [型号规格] = \'" & dr("型号规格") & "\'and [项目] = \'B项目\'")
dr("C项目") = dt.Compute("Sum(数量)","[产品名称] = \'" & dr("产品名称") & "\' and [型号规格] = \'" & dr("型号规格") & "\'and [项目] = \'C项目\'")
End Select
End If
此主题相关图片如下：规格 为空2.jpg
-- 发布时间：2016/9/1 23:23:00
--
dr("A项目") = dt.Compute("Sum(数量)","[产品名称] = \'" & dr("产品名称") & "\' and [项目] = \'A项目\' and 型号规格 is null")