Question

我正在使用HP ALM API从数据库中获取字段。问题是它可能发生，该字段在项目中不存在，每次发生时，我都会得到错误。

如何正确检查字段对象以确保我不再使用“无效的自定义字段名称”？

代码：

Set field = custFields.Field("TEST", "TS_USER_88") <-- crashes here

label = field.UserLabel
If label = Null Then
    Print "[" & Sysdate() & "] Project can NOT be migrated..."
    Print "[" & Sysdate() & "] FIELD TS_USER_88 NOT FOUND - PROJECT IS NOT SUPPORTED."
Else
    ...
End If

错误：

xy.vbs(126, 7) (null): Invalid customization field name

Answer 1

您需要将代码包装在“On Error Resume Next”中，然后处理错误。

On Error Resume Next
Set field = custFields.Field("TEST", "TS_USER_88")

If Err.Number <> 0 Then
  'Do Something to handle your error
  'stuff

  'Clear the error
  Err.Clear
End If
On Error Goto 0

'more stuff down here

这里有关于Err对象及其中一些属性的更多信息：

http://msdn.microsoft.com/en-us/library/sbf5ze0e(v=vs.84).aspx

检查VBScript中是否存在对象

1 个答案: