主题：有请贺总关注一下系统越来越慢的问题

If dr1("配合量") <> 0 And dr1.IsNull("市场价") Then

    dr1("市场金额") = dr1("金额")

End If

市场价 是数值列。上面的代码无效。

应该怎样修改？谢谢！

           If dr1("PJ") = 0 And dr1.IsNull("市场价") Then  ''计算市场金额
                dr1("市场金额") = dr1("金额")
            End If

            If dr1("PJ") = 0 And dr1("市场价") IsNot Nothing Then
                dr1("市场金额") = dr1("定额用量") * dr1("市场价")
            End If

            If dr1("配合量") <> 0 And dr1.IsNull("市场价") Then
                dr1("市场金额") = dr1("金额")

            End If

            If dr1("配合量") <> 0 And dr1("市场价") IsNot Nothing Then
                dr1("市场金额") =dr1("定额用量") * dr1("配合量") * dr1("市场价")
            End If

也就是下图2、6、10、11序号行没有计算。

此主题相关图片如下：2015-04-28_094649.png

市场价填入 0 时，计算正确。

结果是一样的