Sub getColumnData(col as int, tv as TableView) as List
Dim resList as List
resList.Initialize
For j = 0 to tv.Items.Size-1
Dim r() as String = tv.Items.Get(j)
If r.Length>col Then
resList.Add(r(col))
Else
resList.Add(" ")
End If
Next
Return resList
End Sub