Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
myData(17) ' contains 18 data elements
dim output as string = ""
dim rowCellCount as integer = 1 ' initialize to first cell of row
Dim cellsPerRow as integer = 6
For x as integer = 0 to myData.Length -1
If x = 0 ' Build opening table tag & first row tag ...
output &= "<table>" & vbCrLf
If rowCellCount = 1 Then ' start a row
output &= "<tr>" & vbCrLf
' add cell with data
output &= "<td>" & myData(x) " </td>"
if rowCellCount = cellsPerRow Then
' finish the row ...
output &= vbCrLf
output &= "</tr>" & vbCrLf
rowCellCount += 1
' table has been populated. End the table
output &= "</table>"
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!