OnError脚本任务未构造错误消息

Question

我有一个脚本任务（onError事件处理程序），该任务获取系统错误消息并将其存储在errorMessages用户变量中。下面的脚本永远不会完成并循环。我正在尝试实现this link for sending email failure notifications。有什么想法会出错吗？

        Dim messages As Collections.ArrayList
    Try
        messages = CType(Dts.Variables("errorMessages").Value, Collections.ArrayList)
    Catch ex As Exception
        messages = New Collections.ArrayList()
    End Try
    messages.Add(Dts.Variables("ErrorDescription").Value.ToString())
    ' MessageBox.Show("Arraylist constructed")
    Dts.Variables("errorMessages").Value = messages
    'Dts.TaskResult = Dts.Results.Success
    Dts.TaskResult = ScriptResults.Success

Answer 1

检查errorMessages变量的声明类型。我错误地将其声明为字符串，但必须是对象类型。进行更改可以解决问题。如果有人遇到类似问题，只需将其发布在这里。