Private Sub DataGrid_HeadClick(ByVal ColIndex As Integer)
On Error GoTo headclick_err
DataGrid.HoldFields '锁定列布局
If ColIndex < adoData.Recordset.Fields.Count Then
adoData.RecordSource = SQL & " order by " & adoData.Recordset.Fields(ColIndex).Name & " " & IIf(SortOrder, "ASC", "DESC") 'SortOrder为一boolean型,说明排序类型
adoData.Refresh
SortOrder = Not SortOrder
End If
Exit Sub
headclick_err:
lblStatus.Caption = "错误: " & Err.Description & "(" & Err.Number & ")"
End Sub