vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

VB.NET - Fortgeschrittene
CheckBoxen auswerten in DT? 
Autor: ERBRU
Datum: 29.10.17 13:29

Hallo zusammen,

ich möchte eine Status Zählung in der Checkbox.Text realisieren.

in meiner Tabelle bzw. DGV gibt es 3 CheckBox Spalten die ich zum Filtern verwende

1- gefunden in MAXIMO (Anzahl?)
2- abgearbeitete Zeilen (Anzahl?)+(Anzahlgefunden?)+(Anzahlüberführte?)
3- überführte MAXIMO (Anzahl?)

in einem Label möchte ich nun Anzahl aller Einträge gesamt davon abgearbeitet es verbleiben so noch abzuarbeiten ?


derzeit habe ich 3240 Datenzeilen die so mittels Checkbox Zeile für Zeile gekennzeichnet werden

nun möchte ich das rechnen wieviele noch offen sind
denn abgearbeitet sind ja eigentlich die Anzahl der 3 Checkboxen wenn true

ich finde meine Lösung unten nicht so prickelt im ListChange Ereigniss, soll aber immer uptodate die Anzahl ermittelen

Hoffe habt mein Anliegen verstanden


 If BS_LagerDB_Liste.Count = 0 Then Return
        lbl_Anzahl_Ereignisse.Text = BS_Lagerliste.Count.ToString
 
        'Abfrage gefunden in MAXIMO
        Dim AbfrageGefunden As System.Data.EnumerableRowCollection(Of _
          LagerlisteRow)
        AbfrageGefunden = From Reihe In Me.LagerDB.Lagerliste
                   Where Reihe.RowState <> DataRowState.Deleted AndAlso _
                     Reihe.INMAXIMO = True _
                   Select Reihe
        Dim anzahlGefunden As Integer = AbfrageGefunden.Count
        chb_INMaximo.Text = String.Concat("gefunden in MAXIMO " & "( " & _
          anzahlGefunden & " )").ToString
 
        'Abfrage nicht gefunden in MAXIMO
        Dim AbfrageNichtgefunden As System.Data.EnumerableRowCollection(Of _
          LagerlisteRow)
        AbfrageNichtgefunden = From Reihe In Me.LagerDB.Lagerliste
                   Where Reihe.RowState <> DataRowState.Deleted AndAlso _
                     Reihe.abgearbeitet = True _
                   Select Reihe
        Dim anzahlNichtgefunden As Integer = AbfrageNichtgefunden.Count
        chb_abgearbeitet.Text = String.Concat("nicht gefunden: abgearbeitet " & _
          "( " & anzahlNichtgefunden & " )").ToString
 
        'Abfrage nach MAXIMO ueberfuehrt
        Dim Abfrageueberfuehrt As System.Data.EnumerableRowCollection(Of _
          LagerlisteRow)
        Abfrageueberfuehrt = From Reihe In Me.LagerDB.Lagerliste
                   Where Reihe.RowState <> DataRowState.Deleted AndAlso _
                     Reihe.NACHMAXIMO = True _
                   Select Reihe
        Dim anzahlueberfuehrt As Integer = Abfrageueberfuehrt.Count
        chb_ueberfuehrt.Text = String.Concat("Nach MAXIMO Überführt " & "( " & _
          anzahlueberfuehrt & " )").ToString
 
        'Abfrage abgearbeitete Zeilen
        Dim abgearbeitet As Integer = anzahlGefunden + anzahlNichtgefunden
        lbl_Anzahl_abgearbeitet.Text = abgearbeitet
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
CheckBoxen auswerten in DT?1.233ERBRU29.10.17 13:29
Re: CheckBoxen auswerten in DT?713effeff29.10.17 16:53
Re: CheckBoxen auswerten in DT?594ERBRU11.11.17 20:10

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-2024 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