关于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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货