以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  小白求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119247)
--  作者：jeff69
--  发布时间：2018/5/21 14:40:00
--  小白求助
各位老师：我遇到一个问题，但想不出原因，能否有人指点一下：
这是一个简单的datacolchanged代码：

If e.DataRow("其他_项目") = ""  Or e.DataRow("其他_项目") = "行程结束"  Then

    e.DataRow("其他_单价") = 0

Else

    Dim dr3 As DataRow = DataTables("供应商管理").Find("其他_项目 = \'" & e.NewValue & "\'")

    e.DataRow("其他_单价") = dr3("其他_价格")

End If

 

在运行时，会出现以下提示：（应该是这段代码的问题，因为我将这段代码隐去后就不会出现）


.NET Framework 版本：2.0.50727.8784

Foxtable 版本：2018.3.9.1

错误所在事件：表，成本明细_餐饮及其他，DataColChanged

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。


虽然出现了这个错误提示，但实际上也成功赋值了，再说一下，“其他_项目”有多少个就会出现同样数量的错误提示。


有人告诉我错在哪里吗？？？？
--  作者：有点甜
--  发布时间：2018/5/21 15:07:00
--  

If e.DataRow("其他_项目") = ""  Or e.DataRow("其他_项目") = "行程结束"  Then
    e.DataRow("其他_单价") = 0   
Else
    Dim dr3 As DataRow = DataTables("供应商管理").Find("其他_项目 = \'" & e.DataRow("其他_项目") & "\'")
    If dr3 IsNot Nothing Then
        e.DataRow("其他_单价") = dr3("其他_价格")
    End If
End If
--  作者：jeff69
--  发布时间：2018/5/21 15:13:00
--  
太感谢了，问题解决。我得好好体会一下，争取早日成为高手。谢谢谢谢！