[已解决]有关...............................排序的问题，求助！

today0427

1. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
2.     Dim i&, c%
   
3.     With ListView1
   
4.         c = ColumnHeader.Index - 1
   
5.         
   
6.         If c = 3 Or c = 4 Then
   
7.             For i = 1 To .ListItems.Count
   
8.                 .ListItems(i).SubItems(c) = Format(.ListItems(i).SubItems(c), "0000000000")
   
9.             Next
   
10.         End If
    
11.         
    
12.         .SortKey = c
    
13.         .SortOrder = IIf(.SortOrder, 0, 1)
    
14.         .Sorted = True
    
15.         
    
16.         If c = 3 Or c = 4 Then
    
17.             For i = 1 To .ListItems.Count
    
18.                 .ListItems(i).SubItems(c) = Val(.ListItems(i).SubItems(c))
    
19.             Next
    
20.         End If
    
21.     End With
    
22. End Sub

复制代码

HP2009

today0427 发表于 2016-9-13 21:40

改成这样
For i = 1 To .ListItems.Count
                    .ListItems(i).SubItems(c - 1) = Format(Val(.ListItems(i).SubItems(c - 1)), "#,##")

隐藏0值，对不对？
========================================================
老师，帮忙把排序后所产生的零值清空掉，有数字的保持数值格式"#,##0.00"

today0427

1. 
   

复制代码

考虑到虽然你现在未出现小数部分，但是折扣后肯定会出现，我昨天的代码是有缺陷的，修改了下，楼主测试一下

1. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
2.     Dim i&, c%
   
3.     With ListView1
   
4.         c = ColumnHeader.Index - 1
   
5.         If c > 2 Then
   
6.             For i = 1 To .ListItems.Count
   
7.                 .ListItems(i).SubItems(c) = Format(.ListItems(i).SubItems(c), "0000000000.00")
   
8.             Next
   
9.         End If
   
10.         
    
11.         .SortKey = c
    
12.         .SortOrder = IIf(.SortOrder, 0, 1)
    
13.         .Sorted = True
    
14. 
    
15.         If c > 2 Then
    
16.             For i = 1 To .ListItems.Count
    
17.                .ListItems(i).SubItems(c) = IIf(Val(.ListItems(i).SubItems(c)) = 0, "", Format(.ListItems(i).SubItems(c), "0.00"))
    
18.             Next
    
19.         End If
    
20.     End With
    
21. End Sub

复制代码

HP2009

today0427 发表于 2016-9-13 23:04

谢谢老师！不知道为什么没有设置最佳的链接，每天看看！

today0427

HP2009 发表于 2016-9-13 23:16
谢谢老师！不知道为什么没有设置最佳的链接，每天看看！

给雪舞子大神设置最佳，代码是他写的，我就改俩字，大神为了给我个学习机会。千万别弄错了

today0427

HP2009 发表于 2016-9-13 23:16
谢谢老师！不知道为什么没有设置最佳的链接，每天看看！

附件重新修改上传了

HP2009

爱疯老师帮忙设置最佳，用电脑用手机都设置不了！