Dim A_order As Boolean
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Select Case ColIndex
Case 5
If A_order = True Then
Adodc1.RecordSource = "select * from Categories order by description"
A_order = False
Else
A_order = True
Adodc1.RecordSource = "select * from Categories order by description DESC"
End If
Adodc1.Refresh
这段代码错在那里？我只能排序一次，点击第二次的时候就排不回去了
谢谢

我觉得你在这里判断A_Order是多此一举
你可以让他点一次，就改变一种状态
比如原来是增序，再按一次变成减序
if instr(ucase(Adodc1.recordsource),"ASC")>0 then
OrdStr=" Order by Description Desc"
else
OrdStr=" Order by Description Asc"
end if
adodc1.recordsource=sql & ordstr