如何在 VB Visual Studio 2012 中按日期对 DataGridView 列进行排序？

Question

在我的 DGV 中，我在列 (1) 中有日期列表：

11-Sep-2014
11-May-2011
11-Jan-2014
11-Mar-2014
12-Sep-2010

如何得到这样的降序结果：

11-Sep-2014
11-Mar-2014
11-Jan-2014
11-May-2011  
12-Sep-2010

Column(1) 不是 DateTime 类型而是 SortText 类型，我必须设置这样的字符串。 可以排序吗？

我试过使用代码：

DGV.Columns(1).SortMode = DGV.Sort(DGV.Columns(1), System.ComponentModel.ListSortDirection.Descending)

但它没用，它不按日期排序:(

这是我的 DGV：

Okeh，这是我的 DGV 代码：

导入 System.Data.OleDb

公开课 LapTransaksiSimpanan

Public Sub Koneksi()
    str = "provider=microsoft.jet.oledb.4.0;data source=dbkoperasi.mdb"
    Conn = New OleDbConnection(str)
    If Conn.State = ConnectionState.Closed Then
        Conn.Open()
    End If
End Sub

Sub TampilGrid()
    da = New OleDbDataAdapter("select * from LapTransaksiSimpanan", Conn)
    ds = New DataSet
    da.Fill(ds, "LapTransaksiSimpanan")
    DGV.DataSource = ds.Tables("LapTransaksiSimpanan")

    'on the below I wanna to sort the column, my code below is useless :(
    DGV.Sort(DGV.Columns(1), System.ComponentModel.ListSortDirection.Descending)

    DGV.Columns("ID_Simpanan").Width = 120
    DGV.Columns("NAK").Width = 37
    DGV.Columns("Tanggal").Width = 75
    DGV.Columns("Jumlah").Width = 110
End Sub

Private Sub Setoran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Call Koneksi()
    Call TampilGrid()
End Sub

结束类

Answer 1

storing和displaying数据之间存在差异。

您需要更改数据库表架构。 Tanggal列的类型应为date或datetime 。 解决此问题后，使用自定义格式显示日期就很简单了：

Me.DGV.Columns("Tanggal").DefaultCellStyle.Format = "dd-MMM-yyyy"

如果由于某种原因无法更改架构，则需要通过实现IComparer创建自定义比较器。 此 MSDN 页面底部有一个示例。

Answer 2

    Dim tnd As Date
    For Me.i = 0 To X1.RowCount - 2
        tnd = X1.Item(1, i).Value
        X1.Item(6, i).Value = tnd.ToOADate.ToString
    Next

X1 是 DataGridView 第 1 列将您的日期前 5/4/1987 第 6 列计算为整数的 MS 日期数，并且必须转换为字符串。 确保 X1 网格已启用排序 现在只需单击第 6 列标题即可进行排序。 希望有效。