能用DATAGRID单击列表头,实现排序吗?

[zqonline]

我想实现排序.........就用datagrid控件能实现吗?

[txlicenhe]

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
rs.sort = DataGrid1.Columns(ColIndex).DataField
DataGrid1.Refresh
End Sub

[Dublue]

Public Sub sub_HeadSort(ByVal dgDataGrid As DataGrid, ByVal ColIndex As Integer)
Static b_Sort
Dim rs As ADODB.Recordset
Set rs = dgDataGrid.DataSource
rs.Sort = rs.Fields.Item(ColIndex).Name & VBA.IIf(b_Sort, " desc", "")
b_Sort = Not b_Sort
End Sub

[cjhyahoo]

我试了楼上两位老兄的,
出错了,
err.number=3251,

如何解决啊

[trendvb]

select * from table order by dgColumns(ColIndex).DataField

[s6w6k]

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
rs.sort = DataGrid1.Columns(ColIndex).DataField & " ASC "

End Sub
注意：引号与asc间有空格

[zqonline]

ASC是什么意思?
指教!

[AMinfo]

如果你是用ADO的话，请用下面代码
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField
DataGrid1.Refresh
End Sub

[Dublue]

我用时没有错啊，注意空格啊

[strongfisher]

Public Sub sub_HeadSort(ByVal dgDataGrid As DataGrid, ByVal ColIndex As Integer)
'''---------------------------------------------------------------------
'*
'* 名 称 ： sub_HeadSort
'* 作 者 ： HaiWolf
'* 功 能 ： 该函数用来为datagrid表格排
'* 用 法 ： 该函数用来为datagrid表格排序
'* 输 入 ： dgDataGrid为表格名称
'* ColIndex 为表格的具体列
'* 返 回 值：
'* 修改日期： 2003-9-26
'''---------------------------------------------------------------------
Static b_Sort
Dim rsTemp As ADODB.Recordset
Set rsTemp = dgDataGrid.DataSource
rsTemp.Sort = dgDataGrid.Columns(ColIndex).DataField & VBA.IIf(b_Sort, " desc", "")

b_Sort = Not b_Sort

End Sub

[zqonline]

谢谢各位,我今天回去试试,明天来结贴,还有更好的方法吗?