主题：系统升级至最新版本后，经常出错

此主题相关图片如下：qq截图20191031235403.png

最近升级到最新版本系统后总是出错，如上图，在1，2输入完成信息后，再执行第三个的时候出现以下图示错误，发布前发布后都有此问题，未升级前无此问题，我不知道哪里出了问题请老师帮忙指点，谢谢！

此主题相关图片如下：qq截图20191031234859.png

Model控件ValueChanged：

Dim cpxh As String = e.Form.Controls("Dropbox2").value
If cpxh = "" Then
    Tables("库存表").Filter = ""
    e.Form.Controls("库存数量").Text ="未知"
Else
    Tables("库存表").Filter=" [产品型号] = '" & cpxh & "'"
    Dim r As Row = Tables("库存表").current
    If r Is Nothing Then
        e.Form.Controls("库存数量").Text = "未知"
    Else
        e.Form.Controls("库存数量").Text = r("实时库存_数量")
        If r("实时库存_数量") = 0 Then
            MessageBox.Show("Out of stock!", "Error")
        End If
    End If
End If

 

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

Dim dr As DataRow = DataTables("产品入库表").sqlfind("产品型号 = '" & cpxh & "'","日期 Desc")
Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
If dr Is Nothing Then
    e.Form.Controls("产品类别").Text ="未知"
    e.Form.Controls("产品规格").Text ="未知"
    e.Form.Controls("单价成本").Text ="未知"
    pbx.ImageFile = ""
ElseIf dr IsNot Nothing Then
    e.Form.Controls("产品类别").Text =dr("产品类别")
    e.Form.Controls("产品规格").text =dr("产品规格")
    e.Form.Controls("textbox5").text =dr("销售单价")
    e.Form.Controls("单价成本").Text =dr("单价成本")
    pbx.ImageFile =ProjectPath &  "Attachments\" & dr("备注")
End If

 

Quantiyi控件TextChanged：

If e.Form.Controls("NumericComboBox2").Text IsNot Nothing Then
    e.Form.Controls("NumericComboBox1").Text = e.Form.Controls("NumericComboBox2").Text
End If

 

Quantiyi控件ValueChanged：

If e.Form.Controls("库存数量").Text <> "未知" Then
    If e.Sender.Text = "" Then
        MessageBox.Show("The quantity cannot be empty,please enter!(数量不能为空,请输入!)", "Error message(错误提示)")
ElseIf e.Form.Controls("库存数量").Text - e.Sender.Text < 0 Then
        MessageBox.Show("The quantity of this product is not enough in stock!(该产品库存数量不足本次销售!)", "Error message(错误提示)")
    'ElseIf e.Form.Controls("库存数量").Text - e.Form.Controls("未提数量").Text <= 0 Then
        'MessageBox.Show("This product has not mention the number,and stock number of less than the sales!(该产品有未提数量,且库存数量不足本次销售!)", "Error message")
  End If
End If

 

Price控件是自动获得数据

只有最上面的两个控件是绑定列，即NO.和Date，但是这两个控件都没有事件代码。其他控件都没有绑定列

测试方法：

1.输入名称及电话

2.选择产品型号，价格自动获得

3.填入数量，在这一步不是每次都出现这个错误，多测试几个订单就会出错。

4.add order

5.add product

6.保存

你好，蓝老师。按照你的改了以后，偶尔还是会有同样的问题，只是出错频率很小。今天出现一次了。还得麻烦你再帮忙看看，谢谢！

 

为什么以前的老版本不会有这个问题，现在还不能退回原来的低版本。