AddField函数无法按预期工作

Question

我有以下代码块，该代码块遍历每个表的字段并分别添加当前表的字段，以创建多个表框。

'iterate through every table
For i=1 To arrTCount
  'the arrFF array holds the names of the fields of each table
  arrFF = Split(arrFields(i), ", ")
  arrFFCount = UBound(arrFF)

  'create a tablebox
  Set TB = ActiveDocument.Sheets("Main").CreateTableBox

  'iterate through the fields of the array
  For j=0 to (arrFFCount - 1)
      'add the field to the tablebox
      TB.AddField arrFF(j)
      'Msgbox(arrFF(j))
  Next

  Set tboxprop = TB.GetProperties
  tboxprop.Layout.Frame.ObjectId = "TB" + CStr(i)
  TB.SetProperties tboxprop
Next

上面的代码创建了表格框，但是每次都少一个字段（缺少最后一个字段）。 如果将For循环从For j=0 To (arrFFCount - 1)更改For j=0 To (arrFFCount)它将创建空表框，并且似乎永远执行。 关于此更改，我使用Msgbox(arrFF(j))命令测试了字段名称，它向我显示了正确的字段名称，因为我希望它们出现在QlikView的UI的表格框中。

有人对这里的问题有任何想法吗？ 我可以用其他方式吗？

为了弄清这里的情况以及到目前为止我已经测试的情况，我有11个表可以用来制作表格框，并且我尝试只使用其中一个表或其中一些表。 我在代码中看到的结果在左侧，而我期望看到的结果在下图的右侧。 请注意，每个表的字段数各不相同，并且图像仅以其中的一个为例。