补充:如果不排序,是不会出现这个问题的排序函数 Private Sub Detail_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) If sortflag = 0 Then sortflag = 1 Else sortflag = 0 End If '设置 Sorted 为 True 以将列表排序。 Detail.Sorted = True Detail.SortKey = ColumnHeader.Index - 1 Detail.SortOrder = sortflag End Sub
Private Sub Detail_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If sortflag = 0 Then
sortflag = 1
Else
sortflag = 0
End If
'设置 Sorted 为 True 以将列表排序。
Detail.Sorted = True
Detail.SortKey = ColumnHeader.Index - 1
Detail.SortOrder = sortflag
End Sub