Sub FillTable(jq As JQueryElement, rs As ResultSet)
Dim data As List
data.Initialize
Do While rs.NextRow
Dim row As List
row.Initialize
For a = 0 To rs.ColumnCount - 1
Dim val As String = rs.GetString2(a)
row.Add(val)
Next
data.Add(row)
Loop
rs.Close
jq.RunMethod("dataTable", Array As Object(CreateMap("aaData": data, "bFilter": False, _
"bPaginate": True)))
'bind the selection changed event to the students table
ws.RunFunction("addSelectionToTable", Array As Object(tabella.Id, "TableView1_SelectedRowChanged"))
End Sub