Sub FillTable(jq As JQueryElement, rs As ResultSet) 'Popola una datatable con gli elementi di una query SQL
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)
Select a
Case 0
row.Add(val)
Case 1
Dim prezzo As Float = val
Dim prezzoeuro As String = "€ " & NumberFormat(prezzo, 1, 2)
row.Add(prezzoeuro)
End Select
Next
data.Add(row)
Loop
rs.Close
jq.RunMethod("dataTable", Array As Object(CreateMap("aaData": data, "bDestroy": True, "bFilter": True, _
"bPaginate": False, "sScrollY": "200px", "bSort": False, "bInfo": False)))
End Sub