Visual Basic   otázka

VB.NET

Dobrý deň.

Viete mi niekto poradiť s VBA?

V Buttone2 mám tento kód, ktorý funguje správne:

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim a As Decimal = CInt(TextBox1.Text)
Dim b As Decimal = CInt(TextBox2.Text)
Dim c As Decimal = a - b
TextBox3.Text.Text = CStr(c)

ListView1.Items.Add(New ListViewItem({TextBox1.Text, TextBox2.Text, TextBox3.Text.ToString()}))

End Sub

Len že by som potreboval ešte v písať jeden kód do Buttonu2, ktorý by mi sčítaval tretí stĺpec z ListView do Label1. (Ako celkový výsledok)

Ak vie niekto poradiť, alebo poopraviť vopred Ďakujem!!!

nahlásit spamnahlásit spam 0 odpovědětodpovědět

To fakt nevie nikto poradiť?

nahlásit spamnahlásit spam 0 odpovědětodpovědět
Dim soucet As Decimal = 0
For i As Integer = 0 To ListView1.Items.Count - 1
    soucet = soucet + CDec(ListView1.Items(i).SubItems(2).Text)
Next
nahlásit spamnahlásit spam 0 odpovědětodpovědět

Dík za kód, ale mi to nefunguje. Ten súčet z celého tretieho stĺpca "CStr(c)" potrebujem dostať do Label1.

Lenže si Label do kódu nezadal. Hocijako skúšam a nefunguje mi to.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Je hodně těžké napsat?:

Label.Text = soucet
nahlásit spamnahlásit spam 0 odpovědětodpovědět

Díky moc, funguje to celkom dobre len posledné číslo nesčitáva a nepočíta desatinné čísla vedel by si ešte nejak pomôcť? Ďakujem!!!

nahlásit spamnahlásit spam 0 odpovědětodpovědět

V jakém formátu to desetinné číslo je? Má desetinnou tečku nebo čárku? Zkusil bych použít Replace a zaměnit tečku za čárku nebo naopak...

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Má to desatinovú čiarku a Replace nereaguje

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Tady kdysi někdo sloupce listview sčítal :

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

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
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.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:  
Heslo:  

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback