Tach auch,
Sinn dieser Funktion ist es, unabhängig vom gerade verwendeten Formular jeweils den Anwendername aus einer Tabelle auszulesen. Eben eine
nachfolgender Code funktioniert einwandfrei, jedoch nur für das Formular
Jedoch benötige ich die Funktion für jedes Formular. Wie geht das?
Sinn dieser Funktion ist es, unabhängig vom gerade verwendeten Formular jeweils den Anwendername aus einer Tabelle auszulesen. Eben eine
Globale Funktion
.nachfolgender Code funktioniert einwandfrei, jedoch nur für das Formular
FrmHaupt
Jedoch benötige ich die Funktion für jedes Formular. Wie geht das?
VB.NET-Quellcode
- Module UserLogin
- Public Function FncVertreterProjekt(intVertreterNr As Integer) As String
- FncVertreterProjekt = "unbekannt"
- Dim i As Integer
- Dim intNr As Integer = 0
- Dim intAnzDS As Integer = FrmHaupt.PVDataSet.anwenderliste.Rows.Count
- For i = 0 To intAnzDS - 1
- intNr = FrmHaupt.PVDataSet.anwenderliste.Rows(i).Field(Of Integer)("VertreterNr")
- If intVertreterNr = intNr Then
- If String.IsNullOrEmpty(FrmHaupt.PVDataSet.anwenderliste.Rows(i).Field(Of String)("Vorname")) = False Then
- FncVertreterProjekt = FrmHaupt.PVDataSet.anwenderliste.Rows(i).Field(Of String)("Nachname") & ", " & FrmHaupt.PVDataSet.anwenderliste.Rows(i).Field(Of String)("Vorname")
- Else
- FncVertreterProjekt = FrmHaupt.PVDataSet.anwenderliste.Rows(i).Field(Of String)("Nachname")
- End If
- End If
- Next
- End Function
- End Module
Mit freundlichen Dinges
Lupus
P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL
Lupus
P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Lupusverlach“ ()