我今天在datacolchanged事件中写了以下代码:

 If (e.DataRow("含税情况") = "含17%税" Or e.DataRow("含税情况") = "含13%税") Then
        Dim ar As DataRow
        ar = DataTables("进项明细表").Find("_Identify = \'" & e.DataRow("销标") & "\'")
        If ar IsNot Nothing Then
            ar("产品开票数量") = e.NewValue
            ar.save
        End If
    End If
但一运行就出错,出错图片如下:

此主题相关图片如下：4bjzn0ni5uvndl4inbijyv.jpg

我也知道哪里出错,但这种情况要怎么处理?到底是什么原因啊?

请各位高手指教!多谢!

改一下

If e.DataRow("含税情况") = "含17%税" Orelse e.DataRow("含税情况") = "含13%税" Then
    Dim ar As DataRow
    ar = DataTables("进项明细表").Find("_Identify = " & val(e.DataRow("销标")))
    If ar IsNot Nothing Then
        ar("产品开票数量") = e.NewValue
        ar.save
    End If
End If