Sčítání položek v ListView podle datumu.

Sčítání položek v ListView podle datumu. zodpovězená otázka

Dobrý den,chtěl bych poprosit o radu.Mám vytvořen jednoduchý ListView s více položkama.Rád bych je sčítal pomocí cyklu For ..Next podle datumu(Např.: od 1.1.2016 do 31.1.2016).Sčítat je dohromady umím,ale podle datumu mi to nejde.Možná zadávám špatný formát datumu.Dopředu děkuji za radu.

Luděk

nahlásit spam

1 / 1

odpovědět

Těžko posoudit, zda je chyba ve formátu datumu, možná by neškodil kousek kódu,

aby bylo vidno, jak se listview naplní a kde probíhá porovnání datumu v cyklu.

Několik příspěvků na téma vyhledávání, filtrování i sčítání v listview

lze s úspěchem pomocí klíčových slov nalézt hledáním přímo zde na webu.

Např.:

http://www.dotnetportal.cz/forum/tema/15...

nahlásit spam

odpovědět

Dobrý den,

děkuji za odpověď,ale jsem začátečník a na webu jsem nic konkrétního na tohle téma nenašel.

Zasílám kousek kodu,možná to pomůže.Děkuji Luděk

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Dim soucet1 As Integer

        For i As Integer = 8 / 8 / 2016 To 13 / 8 / 2016 
            soucet1 = soucet1 + CInt(ListView1.Items(i).SubItems(1).Text)
        Next

        TextBox4.Text = CStr(soucet1)
End Sub

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

Jak se naplní položky listview? V prvním sloupci jsou datumy a v druhém čísla?

Nenašels? Tak tady zkus pokus :

Příklad použití :

Dim celkem As Decimal = SumBetweenDates(ListView1, 0, 1, "8.8.2016", "13.8.2016")

MsgBox("SumBetweenDates =" & celkem.ToString("N2"))

TextBox4.Text = celkem.ToString("N2")

Funkce pro součet ze sloupce s indexem columnSumIndex, kde je datum ve sloupci s indexem columnDatesIndex mezi fromDate a toDate :

    Function SumBetweenDates(ByVal lv As ListView, _
        ByVal columnDatesIndex As Integer, ByVal columnSumIndex As Integer, _
        ByVal fromDate As DateTime, ByVal toDate As DateTime) As Decimal
        For i As Integer = 0 To lv.Items.Count - 1
            Dim d As Date
            If DateTime.TryParse(lv.Items(i).SubItems(columnDatesIndex).Text, d) Then
                If d >= fromDate And d <= toDate Then
                    Dim n As Decimal
                    If Decimal.TryParse(lv.Items(i).SubItems(columnSumIndex).Text, n) Then
                        SumBetweenDates += n
                    End If
                End If
            End If
        Next
    End Function

TryParse :

Všechny položky resp. hodnoty v řádcích ve všech sloupcích jsou typu String.

Může např. dojít k případu, že je hodnota prázdná nebo je v číselném sloupci

text, ve sloupci s datumy je chybné datum, možná to řeší nějaký zdroj, jinak

nutné nějak ošetřit pro porovnání a sčítání převod textu na správný typ.

Decimal:

Součet v příkladu je deklarovaný jako integer, pokud by nešlo jen o celá čísla

nebo o hodnoty měny, měl by vyhovět typ decimal.

SumBetweenDates:

Pokud nejsou vstupní hodnoty ošetřeny a bude třeba ošetřit chyby nebo

nějak reagovat na nesprávné či prázdné hodnoty, tady rozpitvaná verze

se snad užitečným komentářem k některým možným ne nepředvídaným stavům, :

    Function SumBetweenDates(ByVal lv As ListView, _
        ByVal columnDatesIndex As Integer, ByVal columnSumIndex As Integer, _
        ByVal fromDate As DateTime, ByVal toDate As DateTime) As Decimal
        For i As Integer = 0 To lv.Items.Count - 1
            Dim d As Date
            If DateTime.TryParse(lv.Items(i).SubItems(columnDatesIndex).Text, d) Then
                'jde-li prevest text na datum
                If d >= fromDate And d <= toDate Then 'je-li datum v pozadovanem rozsahu
                    Dim n As Decimal
                    If Decimal.TryParse(lv.Items(i).SubItems(columnSumIndex).Text, n) Then
                        'jde-li prevest text na cislo, tak ho pricist 
                        SumBetweenDates += n
                    Else 'nejde-li prevest text na cislo

                    End If
                Else 'neni-li datum v pozadovanem rozsahu
                    '
                End If
            Else 'nejde-li prevest text na datum
                '
            End If
        Next
    End Function

nahlásit spam

odpovědět

Dobrý den,

děkuji za radu s funkcií 'SumBetweendates',ale nějak ji neumím dostat do svého kódu.Asi bude problém ve mě,že se pouštím do složitějších programů,než na které mám.Jsem už starší a mozek už tak nefakčí,jak by měl.No stejně bych to nerád vzdal.Asi bych to potřeboval vysvětlit nějako jednodušeji.Zasílám celý svůj kód,možná ještě budete mít se mnou trochu trpělivosti.

S pozdravem Luděk

nahlásit spam

odpovědět

Zdravím po víkendu,

funkci je třeba zkopírovat a vložit do kódu vašeho formu

nebo zapracovat obdobu porovnání datumu do vlastního kódu,

kde v cyklu položky procházíte a sčítáte.

Zjednodušíme-li pro obyčejné sčítání jednoho sloupce :

Function SumColumnNumbers(ByVal lv As ListView, _
        ByVal columnIndex As Integer) As Decimal
        For i As Integer = 0 To lv.Items.Count - 1
            Dim n As Decimal
            If Decimal.TryParse(lv.Items(i).SubItems(columnIndex).Text, n) Then
                SumColumnNumbers += n
            End If
        Next
End Function

Funkci vložíte do formu, pak dle libosti použijete

v kódu bez nutnosti psát znova cyklus for next :

Dim soucet As Decimal = SumColumnNumbers(ListView1, 2)

Index sloupce je uvažován od (0) do (počet sloupců - 1),

t.j. výše jde o součet třetího sloupce s indexem 2.

Je to obdobné jako předtím, ale tam přibylo pár vstupních hodnot,

jak vyplynulo z původního požadavku na součet v daném období.

Nevím, jak svůj původní záměr lépe vysvětlit. Věřím, že to dáte.

nahlásit spam

odpovědět

Pokud chcete pracovat s časem nebo datumem, pak asi nemůžete použít proměnnou typu Integer!!!!!

nahlásit spam

odpovědět

Zde je můj kód.

Public Class Form1

    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If ListView1.SelectedItems.Count = 0 Then Exit Sub

        With ListView1.SelectedItems(0)
            Dim dlg As New Dialog1()

            dlg.DateTimePicker1.Value = .SubItems(0).Text
            dlg.NumericUpDown1.Value = .SubItems(1).Text
            dlg.NumericUpDown2.Value = .SubItems(2).Text
            dlg.TextBox1.Text = .SubItems(3).Text

            If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then

                Dim datum As DateTime = dlg.DateTimePicker1.Value
                Dim pivo As Single = dlg.NumericUpDown1.Value
                Dim cigarety As Single = dlg.NumericUpDown2.Value
                Dim jinaUdalost As String = dlg.TextBox1.Text

                .SubItems(0).Text = datum
                .SubItems(1).Text = pivo
                .SubItems(2).Text = cigarety
                .SubItems(3).Text = jinaUdalost

                Dim soucet1, soucet2, soucet3 As Single
                For i As Integer = 0 To ListView1.Items.Count - 1
                    soucet1 = soucet1 + CSng(ListView1.Items(i).SubItems(1).Text)
                    soucet2 = soucet2 + CSng(ListView1.Items(i).SubItems(2).Text)
                    soucet3 = soucet1 + soucet2
                Next
                TextBox1.Text = CStr(soucet1)
                TextBox2.Text = CStr(soucet2)
                TextBox3.Text = soucet1 + soucet2

            End If
        End With
    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'uložit dat
        Dim soubor As New IO.StreamWriter("database1.txt")             'otevřít soubor
        For i As Object = 0 To ListView1.Items.Count - 1              'projít všechny položky seznamu
            soubor.WriteLine(ListView1.Items(i).SubItems(0).Text)     'zapsat datum
            soubor.WriteLine(ListView1.Items(i).SubItems(1).Text)     'zapsat pivo
            soubor.WriteLine(ListView1.Items(i).SubItems(2).Text)     'zapsat cigarety
            soubor.WriteLine(ListView1.Items(i).SubItems(3).Text)     'zapsat jiná událost
        Next
        soubor.Close()
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim soubor As New IO.StreamReader("database1.txt")               'načtení vstupu a otevření souboru

        While Not soubor.EndOfStream                                    'číst,dokuď nejsme na konci souboru
            Dim datum As DateTime = CDate(soubor.ReadLine())            'načíst první řádek - datum
            Dim pivo As Single = CSng(soubor.ReadLine())                'načíst druhý řádek - pivo
            Dim cigarety As Single = CSng(soubor.ReadLine())            'načíst třetí řádek - cigarety
            Dim jinaUdalost As String = soubor.ReadLine()               'načíst čtvrtý řádek - jiná událost

            Dim polozka As New ListViewItem()                           'přidat položku do seznamu
            If pivo > 0 Then polozka.ForeColor = Color.Blue
            If cigarety > 0 Then polozka.ForeColor = Color.Red
            polozka.Text = datum                                        'vypsat datum
            polozka.SubItems.Add(pivo)                                  'přidat druhý sloupec - pivo
            polozka.SubItems.Add(cigarety)                              'přidat třetí sloupec - cigarety
            polozka.SubItems.Add(jinaUdalost)                           'přidat čtvrtý sloupec - jiná událost
            ListView1.Items.Add(polozka)                                'přidat položku do seznamu

        End While
        soubor.Close()
        Dim soucet1, soucet2, soucet3 As Single
        For i As Object = 0 To ListView1.Items.Count - 1
            soucet1 = soucet1 + CSng(ListView1.Items(i).SubItems(1).Text)
            soucet2 = soucet2 + CSng(ListView1.Items(i).SubItems(2).Text)
            soucet3 = soucet1 + soucet2
        Next
        TextBox1.Text = CStr(soucet1 & (" Kč "))
        TextBox2.Text = CStr(soucet2 & (" Kč "))
        TextBox3.Text = CStr(soucet1 + soucet2 & (" Kč "))
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dlg As New Dialog1()
        If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim datum As DateTime = dlg.DateTimePicker1.Value
            Dim pivo As Single = dlg.NumericUpDown1.Value
            Dim cigarety As Single = dlg.NumericUpDown2.Value
            Dim jinaUdalost As String = dlg.TextBox1.Text

            Dim polozka As New ListViewItem()
            If pivo > 0 Then polozka.ForeColor = Color.Blue
            If cigarety > 0 Then polozka.ForeColor = Color.Red
            polozka.Text = datum
            polozka.SubItems.Add(pivo)
            polozka.SubItems.Add(cigarety)
            polozka.SubItems.Add(jinaUdalost)
            ListView1.Items.Add(polozka)

            Dim soucet1, soucet2, soucet3 As Single
            For i As Integer = 0 To ListView1.Items.Count - 1
                soucet1 = soucet1 + CSng(ListView1.Items(i).SubItems(1).Text)
                soucet2 = soucet2 + CSng(ListView1.Items(i).SubItems(2).Text)
                soucet3 = soucet1 + soucet2
            Next
            TextBox1.Text = CStr(soucet1)
            TextBox2.Text = CStr(soucet2)
            TextBox3.Text = soucet1 + soucet2
        End If
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Close()
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If ListView1.Items.Count = 0 Then Exit Sub 'pokud není vybrána žádná položka,nic nemazat
        ListView1.Items.Remove(ListView1.SelectedItems(0))
        Dim soucet1, soucet2, soucet3 As Single
        For i As Integer = 0 To ListView1.Items.Count - 1
            soucet1 = soucet1 + CInt(ListView1.Items(i).SubItems(1).Text)
            soucet2 = soucet2 + CInt(ListView1.Items(i).SubItems(2).Text)
            soucet3 = soucet1 + soucet2
        Next
        TextBox1.Text = CStr(soucet1)
        TextBox2.Text = CStr(soucet2)
        TextBox3.Text = soucet1 + soucet2
       
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    
        Dim soucet4 As Decimal
          For i As Decimal = SumBetweenDates(ListView1, 0, 0, "8.8.2016", "13.8.2016")
            soucet4 = soucet4 + CDec(ListView1.Items(i).SubItems(0).Text)
        Next
        TextBox4.Text = CStr(soucet4)

    End Sub

    Private Sub ListView1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub

    Private Function SumBetweenDates(listView1 As ListView) As Decimal
        Throw New NotImplementedException
    End Function

    Private Function SumBetweenDates(listView As ListView, p2 As Integer, p3 As Integer, p4 As String, p5 As String) As Decimal
        Throw New NotImplementedException
    End Function

End Class

nahlásit spam

odpovědět

http://www.dotnetportal.cz/forum/tema/15...

Myslím, že do příkladu viz. zmiňovaný link výše, kde se položky naplní pomocí

datatable, půjde zapracovat filtrování mezi dvěma zadanými kalendářními daty.

Ve vašem případě se z textového souboru se položky místo rovnou do listview

či datagridview naplní do datatable, jenž poskytne skvělou možnost filtrování

a dosáhnout požadovaného sčítání pomocí DataTable.Compute. Zkuste a uvidíte.

nahlásit spam

odpovědět

Děkuji moc za rady,už mi to funguje.

S pozdravem a přáním hezkého dne Luděk.

nahlásit spam

odpovědět

Tak to blahopřeji!

Zkusils i to sčítání skrzeva datatable?

...

(Další, co by šlo použít na to sčítání je LINQ.)

nahlásit spam

odpovědět

Dobrý den,

omlouvám se,že se ozývám až tak pozdě.Datatable ani LINQ zatím ještě neznám.Já studuji pomalu podle knihy Krok za krokem od M.Halvorsona a tak daleko jsem se ještě nedostal.Navíc mi ještě odešel notebook a backup mi nevyšel.Tak začínám s novým a od začátku,což mi ale moc nevadí.

Rád bych teď skusil dáta z ListView(pomocí funkce SumBetweemDates) vložit automaticky do grafu.

Myslím,že bych mohl použít modul,který,jak jsem četl,funguje v celém programu(Ve více formulářích).Jaký je Váš názor,je tento postup možný?

Za odpověď dopředu děkuji

S pozdravem Luděk

nahlásit spam

odpovědět

Tak ať se s novým od začátku daří...

Škoda, že nedošlo na pokus sčítání skrzeva datatable,

druhý příklad dle odkazu s pivovarem by mohl zaujmout. :)

Ohledně modulu ve více formulářích vůbec netuším.

S grafy ve vb.net nemám moc zkušeností, jen trochu v excelu.

Existuje Chart Control (System.Windows.Forms.DataVisualization),

pokud prvek nenajdete v Toolboxu, bude se muset přidat :

Namátkou :

https://msdn.microsoft.com/en-us/library...

http://www.linglom.com/programming/vb-ne...

Věřím, že i pro plnění grafu daty bude opět datatable výhodou, v seriálu druhý link je příklad.

Možná bude lepší založit zcela nový dotaz do diskuse na práci s grafy, ať mohou poradit zkušenější.

nahlásit spam

odpovědět

Dobrý den.

Obnovil jsem svůj stracený ListView,ale funkce SumBetweenDates nefunguje,tak jak má.Nevím si s tím dát rady.Pořád mi to vyhazuje chybu " Funkce SumBetweenDates nevrací hodnotu na všech cestách kódu.Nechybí příkaz Return?Ale já tam příkaz Return mám a stejně to nejde.Zasílám svůj kód a dopředu velice děkuji za radu.

S pozdravem Luděk

Public Class Form1

Function SumBetweenDates(ByVal lv As ListView, ByVal columnDatesIndex As Integer, ByVal columnSumIndex As Integer,

ByVal fromDate As DateTime, ByVal toDate As DateTime) As Decimal

For i As Integer = 0 To lv.Items.Count - 1

Dim d As Date

If DateTime.TryParse(lv.Items(i).SubItems(columnDatesIndex).Text, d) Then

If d >= fromDate And d <= toDate Then

Dim n As Decimal

If Decimal.TryParse(lv.Items(i).SubItems(columnSumIndex).Text, n) Then

Return celkem

celkem += n

Return n

End If

End Function

Private celkem As Decimal

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

End Sub

Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

End Sub

Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged

End Sub

Private Sub TextBox21_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox21.TextChanged

End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

'uložit dat

Dim soubor As New IO.StreamWriter("database1.txt") 'otevřít soubor

For i As Object = 0 To ListView1.Items.Count - 1 'projít všechny položky seznamu

soubor.WriteLine(ListView1.Items(i).SubItems(0).Text) 'zapsat datum

soubor.WriteLine(ListView1.Items(i).SubItems(1).Text) 'zapsat pivo

soubor.WriteLine(ListView1.Items(i).SubItems(2).Text) 'zapsat cigarety

soubor.WriteLine(ListView1.Items(i).SubItems(3).Text) 'zapsat jiná událost

soubor.Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim soubor As New IO.StreamReader("database1.txt") 'načtení vstupu a otevření souboru

While Not soubor.EndOfStream 'číst,dokuď nejsme na konci souboru

Dim datum As DateTime = CDate(soubor.ReadLine()) 'načíst první řádek - datum

Dim pivo As Single = CSng(soubor.ReadLine()) 'načíst druhý řádek - pivo

Dim cigarety As Single = CSng(soubor.ReadLine()) 'načíst třetí řádek - cigarety

Dim jinaUdalost As String = soubor.ReadLine() 'načíst čtvrtý řádek - jiná událost

Dim polozka As New ListViewItem() 'přidat položku do seznamu

If pivo > 0 Then polozka.ForeColor = Color.Blue

If cigarety > 0 Then polozka.ForeColor = Color.Red

polozka.Text = datum 'vypsat datum

polozka.SubItems.Add(pivo) 'přidat druhý sloupec - pivo

polozka.SubItems.Add(cigarety) 'přidat třetí sloupec - cigarety

polozka.SubItems.Add(jinaUdalost) 'přidat čtvrtý sloupec - jiná událost

ListView1.Items.Add(polozka) 'přidat položku do seznamu

End While

soubor.Close()

Dim soucet1, soucet2, soucet3 As Single

For i As Object = 0 To ListView1.Items.Count - 1

soucet1 = soucet1 + CSng(ListView1.Items(i).SubItems(1).Text)

soucet2 = soucet2 + CSng(ListView1.Items(i).SubItems(2).Text)

soucet3 = soucet1 + soucet2

TextBox1.Text = CStr(soucet1 & (" Kč "))

TextBox2.Text = CStr(soucet2 & (" Kč "))

TextBox3.Text = CStr(soucet1 + soucet2 & (" Kč "))

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dlg As New Dialog1()

If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then

Dim datum As DateTime = dlg.DateTimePicker1.Value

Dim pivo As Single = dlg.NumericUpDown1.Value

Dim cigarety As Single = dlg.NumericUpDown2.Value

Dim jinaUdalost As String = dlg.TextBox1.Text

Dim polozka As New ListViewItem()

If pivo > 0 Then polozka.ForeColor = Color.Blue

If cigarety > 0 Then polozka.ForeColor = Color.Red

polozka.Text = datum

polozka.SubItems.Add(pivo)

polozka.SubItems.Add(cigarety)

polozka.SubItems.Add(jinaUdalost)

ListView1.Items.Add(polozka)

Dim soucet1, soucet2, soucet3 As Single

For i As Integer = 0 To ListView1.Items.Count - 1

soucet1 = soucet1 + CSng(ListView1.Items(i).SubItems(1).Text)

soucet2 = soucet2 + CSng(ListView1.Items(i).SubItems(2).Text)

soucet3 = soucet1 + soucet2

TextBox1.Text = CStr(soucet1)

TextBox2.Text = CStr(soucet2)

TextBox3.Text = soucet1 + soucet2

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If ListView1.SelectedItems.Count = 0 Then Exit Sub

With ListView1.SelectedItems(0)

Dim dlg As New Dialog1()

dlg.DateTimePicker1.Value = .SubItems(0).Text

dlg.NumericUpDown1.Value = .SubItems(1).Text

dlg.NumericUpDown2.Value = .SubItems(2).Text

dlg.TextBox1.Text = .SubItems(3).Text

If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then

Dim datum As DateTime = dlg.DateTimePicker1.Value

Dim pivo As Single = dlg.NumericUpDown1.Value

Dim cigarety As Single = dlg.NumericUpDown2.Value

Dim jinaUdalost As String = dlg.TextBox1.Text

.SubItems(0).Text = datum

.SubItems(1).Text = pivo

.SubItems(2).Text = cigarety

.SubItems(3).Text = jinaUdalost

Dim soucet1, soucet2, soucet3 As Single

For i As Integer = 0 To ListView1.Items.Count - 1

soucet1 = soucet1 + CSng(ListView1.Items(i).SubItems(1).Text)

soucet2 = soucet2 + CSng(ListView1.Items(i).SubItems(2).Text)

soucet3 = soucet1 + soucet2

TextBox1.Text = CStr(soucet1)

TextBox2.Text = CStr(soucet2)

TextBox3.Text = soucet1 + soucet2

End If

End With

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If ListView1.Items.Count = 0 Then Exit Sub 'pokud není vybrána žádná položka,nic nemazat

ListView1.Items.Remove(ListView1.SelectedItems(0))

Dim soucet1, soucet2, soucet3 As Single

For i As Integer = 0 To ListView1.Items.Count - 1

soucet1 = soucet1 + CInt(ListView1.Items(i).SubItems(1).Text)

soucet2 = soucet2 + CInt(ListView1.Items(i).SubItems(2).Text)

soucet3 = soucet1 + soucet2

TextBox1.Text = CStr(soucet1)

TextBox2.Text = CStr(soucet2)

TextBox3.Text = soucet1 + soucet2

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Close()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim celkem As Decimal = SumBetweenDates(ListView1, 0, 1, " 4.11.2016 ", " 30.11.2016 ")

MsgBox("SumBetweenDates =" & celkem.ToString)

TextBox4.Text = celkem.ToString()

End Sub

End Class

nahlásit spam

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz