表格被覆盖了

Question

我想通过dbf循环并为满足条件的每条记录创建word表，并且我得到了一页一页的报告，其中只有最后一个rec在一个表中。看起来所有记录都写在同一个表中。我试图使用n = n + 1将变量作为元素放到表中 oTable = oDoc.tables [n] 但似乎它只支持数字而不是变量？

Answer 1

你必须随时添加每个表，确保在它们之间留出空间（因为Word喜欢组合表）。

你在循环中需要这样的东西：

* Assumes you start with oDoc pointing to the document,
* oRange set to an empty range at the beginning of the area where you want to add the tables, 
* and that nRows and nCols give you the size of the table.

oTable = oDoc.Tables.Add(m.oRange, m.nRows, m.nCols)
oRange = oTable.Range()
oRange.Collapse(0)
oRange.InsertParagraphAfter()
oRange.Collapse(0)

在此代码之后，您可以使用oTable添加要添加的数据。然后，在下一次循环播放时，您已准备好在刚刚填写的表格下方添加另一个表格。