产品型号的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为空),控件“未提数量”始终显示的“未知”,红色部分没有起作用。如果有销售记录计算正常。
请教如何修改上面的代码,谢谢!
[此贴子已经被作者于2018/3/11 23:05:20编辑过]