edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

divers

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-07-18 13:11:37 +02:00
parent bb3ea4424e
commit 6d8a537ee7
5 changed files with 565 additions and 668 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -983,7 +983,12 @@ Public Class frmMitarbDetails
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
cboTeam.Items.Clear()
If cboFirma.Text <> "" Then
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True)
If cboFirma.Text = "ALLE" Then
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirmaHaupt.Text & "'", False, "ADMIN", True)
Else
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True)
End If
End If
cboFirmaHaupt.Enabled = (cboFirma.Text = "ALLE")
End Sub