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

Question

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

Answer 1

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

Answer 2

Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer)On Error Resume NextStatic 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 IfEnd Sub

Answer 3

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