关于flexgrid的排序方式的设置值flexSortNone 0
flexSortGenericAscending 1
flexSortGenericDescending 2
flexSortNumericAscending 3
flexSortNumericDescending 4
flexSortStringNoCaseAsending 5
flexSortNoCaseDescending 6
flexSortStringAscending 7
flexSortStringDescending 8
flexSortCustom 9我试过的,可以用你可以根据字段的内容选择对应的排序方式或简单的用General的排序方式
建议使用一个数据来记录每一列的排序方式,因为flexgrid并没有记住用什么方式排序
dim mcolSort() as integerPrivate Sub MSFlexGrid1_Click()
    If MSFlexGrid1.MouseRow < 1 Then
        if mcolsort(msflexgrid1.mousecol) = flexSortNone or mcolsort(msflexgrid1.mousecol)= flexSortGenericDescending then
            MSFlexGrid1.Sort = flexSortGenericAscending
        else
            msflexgrid1.sort = flexSortGenericDescending
        end if
    End If
End Sub