Änderungen

This commit is contained in:
ja
2021-12-13 10:40:59 +01:00
parent ef30d5d4d1
commit 351c452515
2 changed files with 8 additions and 8 deletions

View File

@@ -106,7 +106,7 @@ Partial Class LKWS
Stringtemp = String.Empty
End If
For Each l3 In list3
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet.Text)
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
Next
Next
Dim strtemp2 As String = String.Empty
@@ -319,7 +319,7 @@ Partial Class LKWS
Stringtemp_M = String.Empty
End If
For Each l4 In list3
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l3.KfzKennzeichen + ";" + tc_Nationalitaet_M.Text)
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
Next
Next
Dim strtemp2 As String = String.Empty