Dim objTable as new Table
Dim objCellKind As TableCell
Dim objCellDep As TableCell
Dim objCellName As TableCell
Dim objRow As TableRowfor i=1 to RowCount  objCellKind = New TableCell()
  objCellDep = New TableCell()
  objCellName = New TableCell()
  objRow = New TableRow()  objCellKind.Text = "1"                          
  objCellDep.Text = "2"
  objCellName.Text = "3"  objRow.Cells.Add(objCellKind)
  objRow.Cells.Add(objCellDep)
  objRow.Cells.Add(objCellName)  objTable.Rows.Add(objRow)next i