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

应该是：

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