经常看到有那种软件,点一个列的最上面,就可以按这个列来排一下序。并且还有个向上与向下的小三角 指示升序与降序。请问,那是什么控 件啊?
是datagrid控件么?怎么弄出来的啊????

解决方案 »

  1.   

    rs.sort = datagrid.columns(colindex).datafield
      

  2.   

    Private Sub ListView1_ColumnClick(Index As Integer, ByVal ColumnHeader As MSComctlLib.ColumnHeader)
        Dim a As String, i As Integer
        ListView1(Index).Sorted = True
        ListView1(Index).SortKey = ColumnHeader.Index - 1
        For i = 1 To ListView1(Index).ColumnHeaders.Count
        a = ListView1(Index).ColumnHeaders(i).text
        If Right(a, 1) = "▽" Then ListView1(Index).ColumnHeaders(i).text = Left(a, Len(a) - 1): Exit For
        Next
        ColumnHeader.text = ColumnHeader.text + "▽"
    End Sub