German Auslesen einer Tabelle in eine Textbox und löschen von "0,00-Ergebnissen"

Discussion in 'German Forum' started by JOTHA, Nov 27, 2008.

  1. JOTHA

    JOTHA Well-Known Member Licensed User

    Hallo Forum,

    ich habe aus einer Tabelle 9 Zeilen mit je 4 Werten und diese werden in eine TextBox geschrieben mit diesem Code:
    Code:
    Einzelauflistung.Text = "Einzel-Auflistung: "&CRLF&"Nr. "&lvTabelle.CellGet("Nr"0)&" = "&lvTabelle.CellGet("Gewicht"0)&" Gramm ("&lvTabelle.CellGet("Karat"0)&" Karat) = "&lvTabelle.CellGet("Euro"0)&" €"&CRLF&"Nr. "&lvTabelle.CellGet("Nr"1)&" = "&lvTabelle.CellGet("Gewicht"1)&" Gramm ("&lvTabelle.CellGet("Karat"1)&" Karat) = "&lvTabelle.CellGet("Euro"1)&" €"&CRLF&"Nr. "&lvTabelle.CellGet("Nr"2)&" = "&lvTabelle.CellGet("Gewicht"2)&" Gramm ("&lvTabelle.CellGet("Karat"2)&" Karat) = "&lvTabelle.CellGet("Euro"2)&" €"&CRLF&"Nr. "&lvTabelle.CellGet("Nr"3)&" = "&lvTabelle.CellGet("Gewicht"3)&" Gramm ("&lvTabelle.CellGet("Karat"3)&" Karat) = "&lvTabelle.CellGet("Euro"3)&" €"&CRLF&"Nr. "&lvTabelle.CellGet("Nr"4)&" = "&lvTabelle.CellGet("Gewicht"4)&" Gramm ("&lvTabelle.CellGet("Karat"4)&" Karat) = "&lvTabelle.CellGet("Euro"4)&" €"&CRLF&"Nr. "&lvTabelle.CellGet("Nr"5)&" = "&lvTabelle.CellGet("Gewicht"5)&" Gramm ("&lvTabelle.CellGet("Karat"5)&" Karat) = "&lvTabelle.CellGet("Euro"5)&" €"&CRLF&"Nr. "&lvTabelle.CellGet("Nr"6)&" = "&lvTabelle.CellGet("Gewicht"6)&" Gramm ("&lvTabelle.CellGet("Karat"6)&" Karat) = "&lvTabelle.CellGet("Euro"6)&" €"&CRLF&"Nr. "&lvTabelle.CellGet("Nr"7)&" = "&lvTabelle.CellGet("Gewicht"7)&" Gramm ("&lvTabelle.CellGet("Karat"7)&" Karat) = "&lvTabelle.CellGet("Euro"7)&" €"&CRLF&"Nr. "&lvTabelle.CellGet("Nr"8)&" = "&lvTabelle.CellGet("Gewicht"8)&" Gramm ("&lvTabelle.CellGet("Karat"8)&" Karat) = "&lvTabelle.CellGet("Euro"8)&" €"&CRLF&"Gesamtsumme: "&LabelSumme.Text&""
    Das funktioniert auch, aber das Ergebnis ist folgendes:
    Es wäre schön, wenn ich eine Lösung hätte, die mir nur die Zeilen zeigt, die tatsächliche Ergebnisse zeigen. Es sollen also alle Zeilen mit einem Ergebnis "0,00" ausgeblendet werden und die Liste soll sich dabei um die ausgeblendeten Zeilen verkürzen.

    Beispiel (bei 3 Zeilen):
    Um die Formatierung will ich mich später auch noch bemühen (links ausgerichtet und rechts ausgerichtet), das ist aber erstmal ein anderes Problem.

    Ich habe schon die SuFu bemüht und mit "If ... Then" herumexperimentiert, leider ohne brauchbare Ergebnisse. :confused:

    Hat jemand einen Tipp?

    Vielen Dank schon mal im Voraus !!!
     
  2. specci48

    specci48 Well-Known Member Licensed User

    Hallo JOTHA,

    anbei (mal wieder) ein Beispiel von mir.

    Die interne Beispieltabelle soll Deine ListView mit Einträgen simulieren. Anschließend wird die TextBox Zeile für Zeile dynamisch gefüllt. Kopf- und Fußzeile sind immer vorhanden. Die restlichen Zeilen erscheinen immer dann, wenn der "Gramm"-Wert nicht "0,00" ist. Diese Prüfung kannst Du ja noch bei Bedarf anpassen. Und Du must natürlich CellGet statt Cell verwenden...


    Gruß
    specci48
     

    Attached Files:

  3. JOTHA

    JOTHA Well-Known Member Licensed User

    Hallo specci48,

    DU warst wieder mal superschnell - Vielen Dank!
    Das werde ich gleich mal testen !

    Inzwischen habe ich (ohne dein Beispiel vorher gesehen zu haben) weiter experimentiert und bin zu folgendem Ergebnis gekommen:
    Code:
    Einzelauflistung.Text = ""&mZusammenfassung.lvTabelle.CellGet("Euro"0)&" €"
       
    If   mZusammenfassung.LVTabelle.Cellget ("Euro"0) = "0,00" Then
       Einzelauflistung.Text = 
    "Diese Zeile soll eigentlich GELÖSCHT werden."
       
    Else
       Einzelauflistung.Text = 
    "Diese Zeile soll ANGEZEIGT werden."
       
    End If
    Das ist natürlich nur eine Zwischenlösung, aber vielleicht kann das auch mal jemand gebrauchen.

    Wenn im Ergebnis in der Spalte "Euro" der Wert "0,00" steht, dann wird
    "Diese Zeile soll eigentlich GELÖSCHT werden." generiert.

    Wenn im Ergebnis in der Spalte "Euro" ein anderer Wert als "0,00" steht, dann wird "Diese Zeile soll ANGEZEIGT werden." generiert.

    So, und jetzt lade ich dein Beispiel herunter und teste es!

    Ich melde mich dann wieder.

    Vielen Dank nochmals. :sign0060:
     
  4. JOTHA

    JOTHA Well-Known Member Licensed User

    Die Tabelle funktioniert Super !

    Hallo specci48,

    dein Beispiel funktioniert super, es ist genau das was ich meinte.

    Jetzt muß ich das nur noch in meine App einbauen und hoffen, das es da auch noch funktioniert.

    DANKE nochmals für die schnelle Hilfe !!!

    P.S.: Die ListView-Tabelle von Filippo habe ich wegen der Möglichkeit der Ausrichtung in den Spalten genommen. Sieht einfach besser aus, wenn unterschiedlich große Euro-Summen links ausgerichtet sind.
     
  5. specci48

    specci48 Well-Known Member Licensed User

    :confused: ... nee is' klar ... die Sache mit Lechts und Rinks kann man schon mal ein wenig durcheinanderbringen... ;)
     
  6. VoDB

    VoDB Member Licensed User

    Hallo zusammen,
    was spricht eigentlich dagegen, die Summe aus den Tabellenwerten zu berechnen?
    So etwa:

    Code:
    Sub FillTextBox
       
    Dim summe
       txt = 
    "Einzel-Auflistung: "
       
    For i = 0 To Table1.RowCount - 1
    ...
          
    End If
          summe = summe + Table1.Cell(
    "Euro", i) /100
       
    Next
       txt = txt & 
    CRLF & "Gesamtsumme: " & Format(summe,"N2") & " €"
       TextBox1.Text = txt
    End Sub
    Besser, oder?
    Gruß
    VoDB
     
  7. JOTHA

    JOTHA Well-Known Member Licensed User

    Hallo specci48,
    :sign0013: ... wo Du recht hast hast Du Recht!

    Da gibt es noch so eine komische Sache bei mir zuhause:
    Ich habe ein paar Socken, da ist der eine schwarz und der andere weiß, aber ich habe die so nie gekauft! :confused:

    Und jetzt kommts: Davon habe ich plötzlich sogar 2 Paar! Komisch, oder? :)
     
  8. JOTHA

    JOTHA Well-Known Member Licensed User

    Hallo VoDB,

    danke für deinen Beitrag!
    Die Summe wird in der App schon an einer anderen Stelle berechnet und die hole ich mir dann über das "LabelSumme.Text".

    Oder hat es mit deinem Code noch eine andere Bewandtnis, die ich im Moment noch nicht erkennen kann?
     
  9. specci48

    specci48 Well-Known Member Licensed User

    LOL
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice