DataGrid：点击一列的标题时，所有记录数据按所在列排序

Question

让datagrid数据源记录集的sort=datagrid.columns(datagrid1.col).datafield1

Answer 1

select * from Employee order by " & datagrid.Columns(datagrid.Col).text试一下

Answer 2

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
        Select Case ColIndex
               case 0
                    '在此插入排序语句
               case 1
               ....
        End Select
 
End Sub

Answer 3

推荐你使用janus gridex 2000 控件,这个控件使用方法类似于datagrid,按标题排序的功能自己带着,很省事的!

Answer 4

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
adc1.RecordSource = "select * from ..... order by " & datagrid1.Columns(ColIndex).DataField 
adc1.refresh
end sub

Answer 5

让datagrid数据源记录集的sort=datagrid.columns(datagrid1.col).datafield1
这个排序倒是挺好的，可是反向排序去不知道用什么属性？

Answer 6

Private Sub dtgProducts_HeadClick(ByVal intColIndex As Integer)
   'Sort by clicked column
   With envData.rsProducts
      .Sort = .Fields(intColIndex).Name & " ASC"
   End With
   dtgProducts.Refresh
End Sub

Answer 7

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
adc1.RecordSource = "select * from ..... order by " & datagrid1.Columns(ColIndex).DataField 
adc1.refresh
end sub应该是datagrid1.Columns(ColIndex + 1).DataField

Answer 8

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataFieldEnd Sub

Answer 9

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    Adodc1.Recordset.Sort = 
           DataGrid1.Columns(ColIndex).DataField '正序排序
    '反序排序
    Adodc1.Recordset.Sort = 
          DataGrid1.Columns(ColIndex).DataField + " desc"
End Sub
注意：在逆序排序中 desc 前有个空格!!...