标题：请教提示错误的原因

在附件里，车辆进销表中的利息情况部分，我用prepareedit和datacolchanged事件分别对付款方式与利率两个字段进行了设置，目的是根据付款方式与请款日期从融资渠道表中取出对应的利率值，应该说通过编代码这个功能是实现了，但出现一个问题，当我试图删掉付款方式字段的值时，会提示一个错误框提示说“未将对象引用设置到对象的实例”，看不大明白，不知道问题是出在了哪，请各位老师帮助指正，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

应该是：

 

If e.DataCol.name="利息情况_付款方式" Then
    Dim a As DataRow = DataTables("融资渠道").Find("[融资形式]='" & e.newvalue & "' and [利率调整日期] < = '" & e.DataRow("车辆基本信息_请款日期") & "' and [利息调整终止日期] > =  '" & e.DataRow("车辆基本信息_请款日期") & "'")
    If a IsNot Nothing Then
        e.DataRow("利息情况_利率")=a("现行利率")
    End If
End If

 

理由参考：

http://www.foxtable.com/help/topics/2044.htm