主题：自动新增行报错 老代码一值可以的。突然报错

'输入凭证明细 查找主表是否存在此收款人 如果没有自动新增一行

If e.DataCol.Name = "收款人" AndAlso e.NewValue <> Nothing Then

    'Forms("更新提示").Show

    Dim fdr As DataRow = DataTables("往来资金账户").Find("收款人 = '" & e.NewValue & "'")

    If fdr Is Nothing Then

        fdr = DataTables("往来资金账户").AddNew

        fdr("收款人") = e.DataRow("收款人")

        fdr("收款账号") = e.DataRow("收款账号")

        fdr("开户行") = e.DataRow("开户行")

        fdr("核算主体") = e.DataRow("核算主体")

        fdr("账户分类") = e.DataRow("账户分类")

    End If

End If