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

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

 

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

 

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