主题：跨表引用和跨表统计

设置好代码之后，对于原有数据，你要重置一下列，才会生效：

 

http://www.foxtable.com/webhelp/scr/1469.htm

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目270.table

代码没有问题，已经有的数据需要“重置列”：然后在“数据表”功能区“列相关”功能组，单击下面的“重置”按钮

之前的代码，统计“产品名称”“型号规格”都有。

 

为了统计“型号规格”为空的行，写了下面代码，但会把有“型号规格”的也统计进来。怎样才能避免这种情况。

 

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

dr("A项目") = dt.Compute("Sum(数量)","[产品名称] = '" & dr("产品名称") & "' and [项目] = 'A项目' and 型号规格 is null")