一个有关与datagrid1排序显示的的问题！！

[netgeneral]

我想在点击某一列的head时，从新按这列排序，该怎么实现呢？
也就是在
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

End Sub

这个过程中该怎么做呢？

[handsomeduke]

奇怪，直接写SQL语句就行了。

[pl5th2001]

sql ="select * from table1 where ..... order by .."

[marswang]

Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer)

On Error Resume Next

Static TmpFlag As Boolean

SaveColIndex = ColIndex

If TmpFlag Then
Adodc1.Recordset.Sort = TDBGrid1.Columns(ColIndex).DataField
TmpFlag = False
Else
Adodc1.Recordset.Sort = TDBGrid1.Columns(ColIndex).DataField & " DESC"
TmpFlag = True
End If

End Sub

[zjhsoft]

晕，datagrid的数据都是从数据库中得到的，直接写sql语句了