Question

VB中datagrid数据单击表头按升序排，再单击表头按降序排？

Answer 1

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Static t_flag
t_flag = t_flag + 1
Print t_flag Mod 2
If t_flag Mod 2 = 1 Then Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField
If t_flag Mod 2 = 0 Then Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField & "世弊好顷 desc"搜袜族
End Sub

Answer 2

datagrid headerclick事件中，用SQL语句再查询一肆蔽次，注意消雹物最拿液后的order by id desc，就OK！