| |
VB.NET - FortgeschritteneDatarow 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. | |
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 | |
| 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 |
|
|
sevAniGif (VB/VBA)
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere InfosTipp des Monats März 2024 Dieter OtterUTF-8 Konvertierung von Dateien und StringsVB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
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
|
|