Private Sub lvwNewOrder_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Me.lvwNewOrder.Sorted = True
Me.lvwNewOrder.SortKey = Me.lvwNewOrder.ColumnHeaders(ColumnHeader.Index).Index - 1
Me.lvwNewOrder.SortOrder = Abs(Me.lvwNewOrder.SortOrder - 1)
If Not Me.lvwNewOrder.SelectedItem Is Nothing Then
Me.lvwNewOrder.SelectedItem.EnsureVisible
End If
End Sub
Me.lvwNewOrder.Sorted = True
Me.lvwNewOrder.SortKey = Me.lvwNewOrder.ColumnHeaders(ColumnHeader.Index).Index - 1
Me.lvwNewOrder.SortOrder = Abs(Me.lvwNewOrder.SortOrder - 1)
If Not Me.lvwNewOrder.SelectedItem Is Nothing Then
Me.lvwNewOrder.SelectedItem.EnsureVisible
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货