有datagrid里，如何按表几种排序方式显示啊？

Question

将datagrid绑定的数据控件对应的记录集重新排序后刷新

Answer 1

用DBGRID的HEADCLICK事件！Dim dec As Boolean '声明全局变量（用于单击dbgrid的时候排序用的！）Private Sub DBGrid1_HeadClick(ByVal ColIndex As Integer)If dec = False Thensqldec = " desc" '如果dec是假，则按降序排序dec = TrueElsesqldec = " asc"dec = False '如果dec是真，则按升序排序End Ifsqltem = "select * from 主库 order by " & DBGrid1.Columns(ColIndex).Caption & sqldec'注意：“主库 ”换成您要操作的表名，by后面要有个空格
Data1.RecordSource = sqltemcol1 = DBGrid1.LeftCol '保存数据网格左边的列数Data1.RefreshDBGrid1.LeftCol = col1 '恢复数据网格左边的列数End Sub
可以加分了吧！