产品型号的ValueChanged代码如下：

Dim cpxh As String = e.Form.Controls("Dropbox1").value

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

销售主界面_Table2 绑定的是销售明细表，现在问题是当选择的产品没有销售明细（即销售主界面_Table2为空），控件“未提数量”始终显示的“未知”，红色部分没有起作用。如果有销售记录计算正常。

请教如何修改上面的代码，谢谢！

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