vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 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
Datarow in TextBox 
Autor: ERBRU
Datum: 07.09.18 18:51

Hallo zusammen,

eine kleine Hilfe zu folgendem:

habe eine gebundene Datagridview fšr Datenanzeige von Massnahmen.
die wird gefiltert nun mčchte ich die 4-5 Datarows untereinanfer in eine Listbox /TextBox schreiben

1 Row: Massnahmedatum: 07.09.2018 ......Status erledigt Ja/Nein
2 Row: Massnahmedatum: 07.09.2018 ......Status erledigt Ja/Nein
3 Row:
4 Row:
wie fuelle ich die Liste dafuer? mit den 6 Spalten

Massnahme Datum=Date, Verantwortlich=String, Terminstart=Date, Terminende=Date, erledigt am:=Date, OK=Boolean

 Dim itemlist As New List(Of String)
 
 
    Private Sub frmChecked_Load(sender As Object, 
        e As EventArgs) Handles MyBase.Load
 
        'Beispiel-Liste
        For i As Integer = 0 To 20
            itemlist.Add("Item " & i.ToString)
        Next i
 
        clbo.DataSource = itemlist
    End Sub
 
 
    Private Sub SetCheckedItemsToText()
        'Checked-Items in Textbox übertragen
        tbo.Clear()
        For Each item As String In clbo.CheckedItems
            tbo.AppendText(item)
            tbo.AppendText(vbNewLine)
        Next item
    End Sub
maximal nur 5 zulassen
so wie im Bild
https://picload.org/view/dliwlopw/07-09-_2018_18-26-32.png.html

Beitrag wurde zuletzt am 07.09.18 um 19:11:35 editiert.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datarow in TextBox 
Autor: ERBRU
Datum: 07.09.18 20:33

Hurra habs hinbekommen.

zuerst eine Funktion fuer die Liste
dann eine sub abfrage Fertig, passt wie ich es wollte.

  Private Sub Liste_erstellen()
        Dim abfr_MeldeID As Integer = Liefermangel_TypRow.ID
        Dim row_Meldung As AEKOMANAGER.AEKODB.LiefermangelRow = Nothing
        Dim lst_m As New List(Of String)
        Dim lst_Massnahme As EnumerableRowCollection(Of _
          AEKOMANAGER.AEKODB.MassnahmenRow)
 
        'zugehörige Massnahmedatensätze ermitteln
        lst_Massnahme = From Massnahme In AEKODB.Massnahmen
                        Where Massnahme.RowState <> DataRowState.Deleted _
                          AndAlso Massnahme.IDLiefermangel = abfr_MeldeID
                        Order By Massnahme.Massnahmedatum
                        Select Massnahme
 
        'Wenn Massnahmedatensätze vorhanden sind
        If lst_Massnahme.Count > 0 Then
            For Each Massnahme In lst_Massnahme
                lst_m = get_AuswertungsZeilen(Massnahme)
                For i = 0 To lst_m.Count - 1
                    ListBox_Daten.Items.Add(lst_m(i))
                Next
            Next
        End If
 
    End Sub
 
    Private Function get_AuswertungsZeilen(ByVal mRow As _
      AEKOMANAGER.AEKODB.MassnahmenRow) As List(Of String)
        Dim m1, m2, m3, m4, m5, m6 As String
 
        If mRow.IsMassnahmedatumNull Then
            m1 = "Maßnahmedatum: __.__.____"
        Else
            m1 = String.Concat("Maßnahmedatum: ", _
              mRow.Massnahmedatum.ToShortDateString)
        End If
 
        If mRow.IsVerantwortlichNull Then
            m2 = "Verantwortlich: "
        Else
            m2 = String.Concat("Verantwortlich: ", mRow.Verantwortlich)
        End If
 
        If mRow.IsTerminstartNull Then
            m3 = "Terminstart: __.__.____"
        Else
            m3 = String.Concat("Terminstart: " & _
              mRow.Terminstart.ToShortDateString)
        End If
 
        If mRow.IsTerminendeNull Then
            m4 = "Terminende: __.__.____"
        Else
            m4 = String.Concat("Terminende: " & _
              mRow.Terminende.ToShortDateString)
        End If
 
        If mRow.IsMassnahmeerledigtNull Then
            m5 = "abgearbeitet: Nein"
        Else
            If mRow.Massnahmeerledigt Then
                m5 = "abgearbeitet: Ja"
            Else
                m5 = "abgearbeitet: Nein"
            End If
        End If
 
        If mRow.IsMassnahmeerledigtamNull Then
            m6 = "erledigt am: __.__.____"
        Else
            m6 = "erledigt am: " & mRow.Massnahmeerledigtam.ToShortDateString
        End If
 
        Return New List(Of String) From {String.Concat(m1, " ", m2, " ", m3, "" & _
          "/ ", m4, " / ", m5, " ", " ", m6)}
 
    End Function
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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