Är det någon som vet något bra sätt där man kan ta bort dubbletter i ListView kontrollen för VB.NET Enklast(?) är nog att göra det innan eller i samband med att du populerar din ListView.Radera dubbletter i ListView kontroll för VB.NET
och sedan summera ihop värdena i kolumnen för { ANTAL } till 1 rad istället för 5 rader.
> Exempel Före:
Artikelnr Benämning Antal Enh Pris Moms % Moms Radbelopp
----------------------------------------------------------------------------------------------------
1005023 TOALETTPAPPER KATRIN BASIC 360 1,00 ST 199,20 25,00 49,80 249,00
1005023 TOALETTPAPPER KATRIN BASIC 360 1,00 ST 199,20 25,00 49,80 249,00
1005023 TOALETTPAPPER KATRIN BASIC 360 1,00 ST 199,20 25,00 49,80 249,00
1005023 TOALETTPAPPER KATRIN BASIC 360 1,00 ST 199,20 25,00 49,80 249,00
1005023 TOALETTPAPPER KATRIN BASIC 360 1,00 ST 199,20 25,00 49,80 249,00
> Exempel Efter:
Artikelnr Benämning Antal Enh Pris Moms % Moms Radbelopp
----------------------------------------------------------------------------------------------------
1005023 TOALETTPAPPER KATRIN BASIC 360 5,00 ST 199,20 25,00 249,00 1245,00Sv: Radera dubbletter i ListView kontroll för VB.NET
Private Sub PopulateList()
ListView1.Items.Clear()
Dim groupedItems = From a In GetItems()
Group a By a.ArticleNo, a.Price Into Group
Select ArticleNo, Price, TotalCount = Group.Count
For Each item In groupedItems
ListView1.Items.Add(New ListViewItem(String.Format("{0} - {1}ST - {2}SEK", item.ArticleNo, item.TotalCount, item.Price * item.TotalCount)))
Next
End Sub
Private Function GetItems() As IEnumerable(Of Article)
Dim list As New List(Of Article)
For i As Integer = 1 To 30
Dim art As New Article
art.ArticleNo = i
art.Price = i * 10
list.Add(art)
Next
For i As Integer = 1 To 30 Step 3
Dim art As New Article
art.ArticleNo = i
art.Price = i * 10
list.Add(art)
Next
For i As Integer = 1 To 30 Step 5
Dim art As New Article
art.ArticleNo = i
art.Price = i * 10
list.Add(art)
Next
Return list
End Function
Private Structure Article
Public ArticleNo As Integer
Public Price As Decimal
' ...
End Structure