mshflexgrid多列排序

Const ASC As Long = 1 
Const DESC As Long = -1 
Private SortType As Long 

Private Sub Command1_Click() 
SortType = ASC 
Debug.Print Now 
MSHFlexGrid1.Sort = 9 
Debug.Print Now 
End Sub 

Private Sub Command2_Click() 
SortType = DESC 
MSHFlexGrid1.Sort = 9 
End Sub 

Private Sub Form_Load() 
Randomize 
With MSHFlexGrid1 
For i = 1 To .Rows - 1 
.TextMatrix(i, 3) = CStr(i) 
.TextMatrix(i, 1) = Format(Rnd, "0.0") 
Next 
End With 
End Sub 

Private Sub MSHFlexGrid1_Compare(ByVal Row1 As Long, ByVal Row2 As Long, Cmp As Integer) 
Dim x1 As Double, x2 As Double, n1 As Long, n2 As Long 

x1 = CDbl(MSHFlexGrid1.TextMatrix(Row1, 1)) 
x2 = CDbl(MSHFlexGrid1.TextMatrix(Row2, 1)) 
If x1 < x2 Then 
Cmp = -1 
ElseIf x1 > x2 Then 
Cmp = 1 
Else '第一列相等的情况下，按第三列排序 
n1 = CLng(MSHFlexGrid1.TextMatrix(Row1, 3)) 
n2 = CLng(MSHFlexGrid1.TextMatrix(Row2, 3)) 
If n1 < n2 Then 
Cmp = -1 
ElseIf n1 > n2 Then 
Cmp = 1 
Else 
Cmp = 0 
End If 
End If 

Cmp = Cmp * SortType 
End Sub