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

名前

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

本文 "担当者CD" , "担当者名"が ColumnHeader.Text と違っているのでしょう。 Select Case で分ける理由はなさそうなので Private Sub ListView1_ColumnClick( _ ByVal ColumnHeader As MSComctlLib.ColumnHeader) With ListView1 .Sorted = True .SortKey = ColumnHeader.Index - 1 If .SortOrder = lvwDescending Then .SortOrder = lvwAscending Else .SortOrder = lvwDescending End If End With End Sub でいいと思いますが・・・