PB中单击列表框的列标题实现排序

PB中的高级控件列表框虽然没有其数据窗口控件那么功能强大,但因其操作方便,风格多样,依然受到很多PB程序的喜爱.

下面的方法简单实现在列表框中单击列标题来排序的功能:

// Sort the list based on the column clicked.
// If the same column is clicked twice, sort descending.

If column <> ii_SortCol Then
 igrs_Sort = ascending!
 ii_SortCol = column
Else
 If igrs_Sort = ascending! Then
  igrs_Sort = descending!
 Else
  igrs_Sort = ascending!
 End if
End if

// Since all columns are strings, numeric values will not sort
// properly.  So call userdefined sort for Quantity and Unit Price.
// This will execute the "sort" event for each item comparison.

If column < 5 Then
 This.Sort(igrs_Sort, column)
Else
 This.Sort(userdefinedsort!, column)
End If