msflexgrid排序问题.在线等!很急!!!

Question

如何实现单击msflexgrid列头的时候,按该列排序.支持字符,数字,日期排序.

Answer 1

Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)    If Y < MSFlexGrid1.CellHeight Then
        MSFlexGrid1.Row = 0
        MSFlexGrid1.Col = MSFlexGrid1.MouseCol
        
        Select Case MSFlexGrid1.Col
            Case 0, 2, 4
                    MSFlexGrid1.Sort = flexSortGenericAscending
            Case 3
                    MSFlexGrid1.Sort = flexSortNumericAscending
        End Select
    End IfEnd Sub

Answer 2

case 后面的列标 根据需求自己改

Answer 3

关于sort property
http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/modcore/html/deprosortproperty.asp