#XOJO WEBLISTBOX SORT FULL#
#XOJO WEBLISTBOX SORT CODE#

The WebListbox has all sorts of issues, this is one more on the list. Now this is where it gets weird, I click the button a third time and then it consistently loads and displays the data correctly.

I run the app, click the button once and the list loads as expeced, then I proceed to sort the second column and it sorts as expected, I click the button again and the listbox does not load correctly, the frist column loads as expected but the second column only loads the first row. ( li, 1 ) = 'Column 1, Row ' + ir.ToString

#XOJO WEBLISTBOX SORT CODE#

I did a little test, added a weblistbox with two columns and a button, in the button’s pressed event I added this code įor ic As Integer = 0 To ( - 1)

The SortListbox function is triggered in the HeaderPressed event handler of the WebListbox.This is indeed strange/incorrect behaviour If tempString '' And tempString str(tempString.val) And tempString.val 0 Then Me.ListIndex = 0 'highlight the first row TempString = ReplaceAll(tempString, ' ', '') 'remove spaces TempString = ReplaceAll(tempString, ',', '') 'remove commas TempString = Uppercase(Me.Cell(tempInt, tempInt2)) If sortColumn = tempInt2 And numericalColumn Then

#XOJO WEBLISTBOX SORT FULL#

'check If the chosen column is full of only numerical data Rec.Column('m圜olumn' + str(tempInt2)) = Me.Cell(tempInt, tempInt2) If fieldExistsInTable(memoryDB, 'sortTable', 'm圜ellTag' + Str(tempInt2)) Then rec.Column('m圜ellTag' + Str(tempInt2)) = Me.CellTag(tempInt, tempInt2) If fieldExistsInTable(memoryDB, 'sortTable', 'myRowTag') Then rec.Column('myRowTag') = Me.RowTag(tempInt) 'place the WebListBox data into the databaseįor tempInt As Integer = 0 to Me.RowCount - 1 rec = New DatabaseRecordįor tempInt2 As Integer = 0 to Me.ColumnCount - 1 If memoryDB.Error Then Return 'not sure why we got an error, but leave the table alone TempSQL = tempSQL + “extraSortColumnWAD DOUBLE” TempSQL = tempSQL + 'm圜ellTag' + Str(tempInt) + ' TEXT COLLATE NOCASE, ' If Me.CellTag(0, tempInt).StringValue '' Then TempSQL = tempSQL + “m圜olumn” + str(tempInt) + ' TEXT COLLATE NOCASE, ' //Ajouter le cellTag TempSQL = tempSQL + “myRowTag” + ' TEXT COLLATE NOCASE, 'įor tempInt As Integer = 0 to Me.ColumnCount - 1 If rsf.Field(“ColumnName”).StringValue = fieldName Thenįunction 2 : SortListbox(sortColumn As Integer)

Since I often use dynamic filled listboxes with different column counts, most examples wount work. In the Xojo examples is a project with a listbox with static columns. Some comments are in french but you should find your way around…įunction 1 : fieldExistsInTable (db As SQLiteDatabase, tableName As String, fieldName As String) As Boolean One of the functions I miss most in Xojo Webedition is an easy way to sort weblistboxes. Hopefully it can be usefull for someone… So thanks again to David Cox for creating the main part of this code. It surely can be optimized and by the way, let me know if you do so :).

I use two Functions in a subclassed WebListbox. This is an extended listbox that will take a SQLite table and create a listbox of all the data sorted into the columns with correct justification and. It works well with Strings, dates and numbers. I modified David Cox 's function for sorting WebListBox ( Link to conversation) so it can take into account RowTags and CellTags as well.

Xojo weblistbox sort