vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Schleifenfrage 
Autor: ModeratorDaveS (Moderator)
Datum: 06.09.06 12:21
Falls ich dich richtig verstehe, wenn du deinen Code etwas umschreibst um wesentlich übersichtlicher zu sein 
a = 0
If gsgrid1.Zelle(c_Gw6, 1) <> "" Then
    a = gsgrid1.Zelle(c_Gw6, 1)
End if
If gsgrid1.Zelle(c_Gw6, 2) <> "" Then
    a += gsgrid1.Zelle(c_Gw6, 2)
End If
If gsgrid1.Zelle(c_Gw6, 3) <> "" Then
    a += gsgrid1.Zelle(c_Gw6, 3) 
End If
kannst du das leicht als Schleife gestalten. 
 
a = 0
For i As Integer = 1 To 3
    If gsgrid1.Zelle(c_Gw6, i) <> "" Then
        a += gsgrid1.Zelle(c_Gw6, i)
    End if
Next
Aber vielleicht liege ich völlig falsch

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Schleifenfrage743StefanJoachimst...06.09.06 11:32
Re: Schleifenfrage444StefanJoachimst...06.09.06 12:07
Re: Schleifenfrage443ModeratorDaveS06.09.06 12:21
Re: Schleifenfrage448StefanJoachimst...06.09.06 13:05

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel