0
Private Sub GridViewLog_StartSorting(ByVal sender As Object, ByVal e As EventArgs) Handles GridViewLog.StartSorting
SetDefaultSort()
End Sub
Private Sub SetDefaultSort()
Dim col1 As DevExpress.XtraGrid.Columns.GridColumn
Dim col2 As DevExpress.XtraGrid.Columns.GridColumn
Dim sortIndex As Integer
Dim order As DevExpress.Data.ColumnSortOrder
Try
col1 = GridViewLog.Columns("Date_Field")
col2 = GridViewLog.Columns("Time_Field")
If Not ((GridViewLog.SortedColumns.Contains(col1) OrElse GridViewLog.GroupedColumns.Contains(col1)) AndAlso (GridViewLog.SortedColumns.Contains(col2) OrElse GridViewLog.GroupedColumns.Contains(col2))) Then
Me.GridViewLog.BeginSort()
If col1.SortOrder = DevExpress.Data.ColumnSortOrder.None Then
order = col2.SortOrder
Else
order = col1.SortOrder
End If
If order = DevExpress.Data.ColumnSortOrder.None Then
order = DevExpress.Data.ColumnSortOrder.Descending
End If
sortIndex = GridViewLog.SortedColumns.Count
Me.GridViewLog.Columns("Date_Field").SortIndex = sortIndex - 1
Me.GridViewLog.Columns("Date_Field").SortOrder = order
Me.GridViewLog.Columns("Time_Field").SortIndex = sortIndex
Me.GridViewLog.Columns("Time_Field").SortOrder = order
Me.GridViewLog.EndSort()
End If
Catch ex As Exception
End Try
End Sub
何度か変更されて10:31に変更され、並べ替えられませんでした。私はその後、列の上部にあるTimeを押しても、それは変わらなかった。添付のスクリーンショットGridviewがDateTime coloumnで正しくソートされていない
私はまだColumnSortMode.Value = ColumnSortMode.Valueを設定してテストを行っていますが、coloumnは正しくソートされません – John