Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Radera dubbletter i ListView kontroll för VB.NET

Postades av 2013-01-16 18:31:44 - Martin nilsson, i forum vb.net, Tråden har 1 Kommentarer och lästs av 1788 personer

Ä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
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,00



Svara

Sv: Radera dubbletter i ListView kontroll för VB.NET

Postades av 2013-01-17 14:18:58 - Tomas Granlund

Enklast(?) är nog att göra det innan eller i samband med att du populerar din ListView.


	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


Svara

Nyligen

  • 08:28 Butiksskyltar: Hur upplever utbude
  • 22:31 Slappna av
  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 763
27 959
271 761
523
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies