Question

VB 关于DataGrid显示字段排序问题

'代码
Private Sub DataGrid1_Click()

ret.Sort = "帐户名 ASC"
ret.Sort = DataGrid1.Columns(ColIndex).DataField
Set DataGrid1.DataSource = ret

End Sub
说明：如何使用Recordsetd的Sort属性实现点击DataGrid控件上的字段名就可实现数据按升或降序排列

谢谢！
Private Sub DataGrid1(ByVal ColIndex As Integer)
这个是什么事件，从哪里点出来的。
代码不是写在DataGrid1_Click() 事件中嘛？

提示错误：
实时错误：‘3251’
当前提供程序不支持排序或过滤所必须的界面。

Answer 1

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
rs.Sort = DataGrid1.Columns(ColIndex).DataField '升
rs.Sort = DataGrid1.Columns(ColIndex).DataField '降
End If

Answer 2

单击网格标题有效
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
ret.Sort =Grid.Columns(ColIndex).DataField '升
ret.Sort =Grid.Columns(ColIndex).DataField & " desc" '降
End Sub

呵呵忘记事件名了，不是click事件是HeadClick(ByVal ColIndex As Integer)事件，

Answer 3

private
sub
datagrid_view_headclick(byval
colindex
as
integer)
dim
sqlstr
as
string
dim
sqldb
as
string
dim
i
as
integer
sqldb
=
db_source'表名称
odercolumns
=
colindex
sqlstr
=
sqldb
&
"
order
by
"
&
datagrid_view.columns(odercolumns).datafield
adodc_data.recordsource
=
sqlstr
adodc_data.refresh
end
sub