Sub ShowTableZProg' di prova da eliminare
Dim i As Int
Dim Query As String
Query = "SELECT "
For i = 0 To ColNumber - 1
If i < ColNumber - 1 Then
Query = Query & ColNames(i) & " As [" & ColAliasNames(i) & "], "
Else
Query = Query & ColNames(i) & " As [" & ColAliasNames(i) & "] "
End If
Next
' qui faccio la query per ordinare A Z
'Query = Query & " FROM [" & SQLTabelName & "]"'[" & AlterName & "]
Query = Query & " FROM [" & SQLTabelName & "] ORDER BY " & (ColNames(1)) & " DESC " '[" & AlterName & "]
'ORDER BY " & GestioneTbl.ColNames(col) & " ASC"
'depending if the filter is active or not we add the filter query at the end of the query
'the filter query is defined in the Filter Activity
If Filter.flagFilterActive = False Then
btnFilter.Text = "Filter" 'change the text in the Filter button
Else
Query = Query & Filter.Query
btnFilter.Text = "UnFilter" 'change the text in the Filter button
End If
'displays the database in a table
wbvTable.LoadHtml(ExecuteHtml(SQL1, Query, Null, 0, True))
ReadDataBaseIDs
End Sub