主题：偶发性的严重报错

我们的系统在保存报价时，会偶尔报错（个把星期会有人遇到一两次），我一直没找到问题根源，求教狐爸看能不能从错误提示的详细代码里面给点提示：

此主题相关图片如下：偶发性报错提示


此主题相关图片如下：报错后maintable变得不可用

报错窗口的“详细信息”的内容为：

我也总结不出规律来，我这几个月以来电脑上总共就出现过两三次这样的错误提示，但是陆续有其他用户反映，看来得研究一下。

关于表单事件代码，我就只有在主表关联的明细表中有辅助运算的代码，如下：

Select Case e.DataCol.Name

    Case "ProductPrice"

        e.DataRow("NoTaxPrice") = e.NewValue * (1-e.DataRow("TaxRate") )

        e.DataRow("BaseCurrencyPrice") = e.NewValue * e.DataRow("ExchRate")

        e.DataRow("TradingPrice") = e.NewValue * e.DataRow("zhekou")

    Case "zhekou"

        If e.NewValue > 1 Then

            MessageBox.Show("折扣值不允许大于1,系统自动调整为1")

            e.DataRow("zhekou") = 1

            e.DataRow("TradingPrice") =e.DataRow("ProductPrice")

        Else

            e.DataRow("TradingPrice") =e.DataRow("ProductPrice")*e.NewValue

        End If        

    Case "TradingPrice"

        If e.NewValue >   e.DataRow("ProductPrice") Then

            MessageBox.Show("折后价不得大于销售价")

            e.NewValue = e.OldValue

        End If

        e.DataRow("zhekou") = e.NewValue/e.DataRow("ProductPrice")

    Case "TaxRate"

        e.DataRow("NoTaxPrice") = e.DataRow("ProductPrice")* (1-e.NewValue)

    Case "ExchRate"

        e.DataRow("BaseCurrencyPrice") = e.NewValue * e.DataRow("ProductPrice")

    Case "NoTaxPrice"

        If e.DataRow("TaxRate") IsNot Nothing Then

            e.DataRow("ProductPrice") =e.NewValue / (1- e.DataRow("TaxRate") )

        End If

End Select