怎样实现点击mshflexgird列标头时实现对该列排序

Question

怎样实现点击mshflexgird列标头时实现对该列排序

Answer 1

使用msHflexhrid的sort属性
Option ExplicitPrivate Sub mshflexgeid_Click()
    On Error Resume Next
    If Me.mshflexgeid.Row = 1 Then
    
    If cmdSort.Tag = "1" Then
        mshflexgeid.Sort = 1
            Else
        mshflexgeid.Sort = 2
        
    End If '    For i = mshflexgeid.FixedRows To mshflexgeid.Rows - 1
        mshflexgeid.TextArray(Fgi(i, 0)) = i
    Next
    End If
End Sub