主题：销售数据统计问题

Tables("销售主界面_Table2").Filter = " [产品型号] = '" & cpxh & "'"
Dim sum As Double = 0
If Tables("销售主界面_Table2").Current Is Nothing Then
    e.Form.Controls("未提数量").Text = 0
Else
    For Each r1 As Row In Tables("销售主界面_Table2").Rows
        sum + = r1("未提数量")
    Next

    e.Form.Controls("未提数量").Text = sum
End If