主题：代码调试错误求助

If e.DataRow("TP续签首年客户信息_客户名称") IsNot Nothing  Then '指的是销售报表中的认证日期不为空时执行以下代码

    Dim dr As DataRow

    With DataTables("销售报表")

        dr = .find("客户名称 = '" & e.DataRow("TP续签首年客户信息_客户名称") & "' And 项目名称 = '诚信通新签'")

    End With

    e.DataRow("TP续签首年提成人员及金额_新签人员") = dr("签约人")

End If

end if