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

Dakosy, Chat, Feiertage, Formulare (AMBAR)

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-11-08 08:51:59 +01:00
parent 24b9746817
commit 1496d88118
17 changed files with 1233 additions and 1015 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb
View File

@@ -51,23 +51,25 @@ Public Class frmMessenger_Members
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If dgvChatMembers.SelectedRows.Count > 1 Then
Dim ol As New List(Of Object)
For Each r As DataGridViewRow In dgvChatMembers.SelectedRows
If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
For Each MB In CHAT.CHAT_MEMBERS
If r.Cells("clmnMaId").Value = MB.chatMb_maId Then
ol.Add(MB)
End If
Next
End If
Next
For Each o In ol
CHAT.CHAT_MEMBERS.Remove(o)
If CHAT.SAVE_MEMBERS() Then
initDGV()
End If
Next
If dgvChatMembers.SelectedRows.Count >= 1 Then
If vbYes = MsgBox("Teilnehmer wirklich entfernen?", vbYesNoCancel) Then
Dim ol As New List(Of Object)
For Each r As DataGridViewRow In dgvChatMembers.SelectedRows
If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
For Each MB In CHAT.CHAT_MEMBERS
If r.Cells("clmnMaId").Value = MB.chatMb_maId Then
ol.Add(MB)
End If
Next
End If
Next
For Each o In ol
CHAT.CHAT_MEMBERS.Remove(o)
If CHAT.SAVE_MEMBERS() Then
initDGV()
End If
Next
End If
End If
End Sub