リストビューの一部がソートできない (ID:102045)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

構文を提示します。
この中でソートできないのは5,6列目の担当者CD及び担当者名です。
他はソートできます。

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
  On Error GoTo ErrorHandler

Select Case ColumnHeader.Text
    Case "伝票番号"
      Me.ListView1.Sorted = True
      Me.ListView1.SortKey = 0
      If Me.ListView1.SortOrder = lvwAscending Then
        Me.ListView1.SortOrder = lvwDescending
      Else
        Me.ListView1.SortOrder = lvwAscending
      End If
    Case "伝票日付"
      Me.ListView1.Sorted = True
      Me.ListView1.SortKey = 1
      If Me.ListView1.SortOrder = lvwAscending Then
        Me.ListView1.SortOrder = lvwDescending
      Else
        Me.ListView1.SortOrder = lvwAscending
      End If
    Case "出荷予定日"
      Me.ListView1.Sorted = True
      Me.ListView1.SortKey = 2
      If Me.ListView1.SortOrder = lvwAscending Then
        Me.ListView1.SortOrder = lvwDescending
      Else
        Me.ListView1.SortOrder = lvwAscending
      End If
    Case "得意先CD"
      Me.ListView1.Sorted = True
      Me.ListView1.SortKey = 3
      If Me.ListView1.SortOrder = lvwAscending Then
        Me.ListView1.SortOrder = lvwDescending
      Else
        Me.ListView1.SortOrder = lvwAscending
      End If
    Case "得意先略称"
      Me.ListView1.Sorted = True
      Me.ListView1.SortKey = 4
      If Me.ListView1.SortOrder = lvwAscending Then
        Me.ListView1.SortOrder = lvwDescending
      Else
        Me.ListView1.SortOrder = lvwAscending
      End If
    Case "担当者CD"
      Me.ListView1.Sorted = True
      Me.ListView1.SortKey = 5
      If Me.ListView1.SortOrder = lvwAscending Then
        Me.ListView1.SortOrder = lvwDescending
      Else
        Me.ListView1.SortOrder = lvwAscending
      End If
    Case "担当者名"
      Me.ListView1.Sorted = True
      Me.ListView1.SortKey = 6
      If Me.ListView1.SortOrder = lvwAscending Then
        Me.ListView1.SortOrder = lvwDescending
      Else
        Me.ListView1.SortOrder = lvwAscending
      End If
    Case "部門CD"
      Me.ListView1.Sorted = True
      Me.ListView1.SortKey = 7
      If Me.ListView1.SortOrder = lvwAscending Then
        Me.ListView1.SortOrder = lvwDescending
      Else
        Me.ListView1.SortOrder = lvwAscending
      End If
    Case "部門名"
      Me.ListView1.Sorted = True
      Me.ListView1.SortKey = 8
      If Me.ListView1.SortOrder = lvwAscending Then
        Me.ListView1.SortOrder = lvwDescending
      Else
        Me.ListView1.SortOrder = lvwAscending
      End If
  End Select
Exit Sub

ErrorHandler:

MsgBox Err.Number & "/" & Err.Description, vbOKOnly + vbCritical + vbApplicationModal, App.Title

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る