将 SQL 结果输出到 MS Word 中的 2 列 Table

Question

我真的需要你的帮助。

我正在设计一个 HTA，我想修改下面的代码，这样我就可以使用 MS Word 输出 SQL 记录集结果分解为 2 列 table .当前代码似乎也插入了一个空白行。我该如何摆脱它？

这里是有问题的代码：

function test() {



        var wordApp = new ActiveXObject("Word.Application")
        var doc = wordApp.Documents.Add()

        doc.Tables.Add(Range=doc.Range(0, 0), numrows=1, numcolumns=2)
        doc.Tables(1).Borders.Enable = true

        i = 1
        while (!rs.eof) {

            doc.Tables(1).Columns(1).Cells.Add()

            doc.Tables(1).Columns(1).Cells(i + 1).Range.Text = rs.Fields("firstname").value

            i++
            rs.movenext
        }

        wordApp.Visible = true
        wordApp.Activate();
        //wordApp.WindowState = 1
}

这里是问题的屏幕截图和预期结果：

Answer 1

function test() {

        var wordApp = new ActiveXObject("Word.Application")
        var doc = wordApp.Documents.Add()
        var col

        doc.Tables.Add(Range=doc.Range(0, 0), numrows=1, numcolumns=2)
        doc.Tables(1).Borders.Enable = true

        row = 1
        col = 0
        while (!rs.eof) {

            col = col + 1

            alert(row)

            if (col = 1) {
                doc.Tables(1).Cell(row,1).Range.Text = rs.Fields("firstname").value
                col = col + 1
                rs.movenext
            }
            if (col = 2) {

                if (rs.AbsolutePosition < rs.RecordCount) {            
                    doc.Tables(1).Rows.Add()
                }
                doc.Tables(1).Cell(row,2).Range.Text = rs.Fields("firstname").value
                col = 1
                rs.movenext
            }

            row++
        }

        wordApp.Visible = true
        wordApp.Activate();
        //wordApp.WindowState = 1
}

将 SQL 结果输出到 MS Word 中的 2 列 Table

Output SQL Results into a 2 Column Table in MS Word

javascript

ms-word