Результаты вывода SQL в таблицу 2 столбцов в MS Word

Question

Мне очень нужна ваша помощь.

Я разрабатываю HTA, и я хотел бы, чтобы код был изменен ниже, так что я мог бы выводить результаты SQL-записей, разбитые в таблице с двумя столбцами, используя MS Word. Также кажется, что текущий код вставляет пустую строку. Как я также избавлюсь от этого?

Вот код в вопросе:

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 
}