关于排序

[nieguodong]

请问用ADODC控件如何实现点击某列时将所显示的记录按点击的字段进行升序和降序排序。

[efsnake]

ADODC？
你是用GRID来显示吧，你在GRID的鼠标单击事件中写排序代码就可以了！

[victorycyz]

Private Sub datagrid1_HeadClick(ByVal ColIndex As Integer)
With rs
If .State Then
If .Sort = .fields(colindex).name Then
.Sort = .fields(colindex).name & " desc"
Else
.Sort = .fields(colindex).name
End If
End If
End With
End Sub

[zhujiechang]

ado记录集有sort属性，版本2.5以上.

[demo001]

用listview控件来显示记录，
写代码
Private Sub listview_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

listview.SortKey = ColumnHeader.Index - 1
listview.Sorted = True

If listview.SortOrder = lvwAscending Then
listview.SortOrder = lvwDescending
Else
listview.SortOrder = lvwAscending
End If

End sub