neu

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb

@@ -22,7 +22,7 @@ Public Class frmMessenger_Members
 
             For Each MB In CHAT.CHAT_MEMBERS
                 Dim MA As New cMitarbeiter(MB.chatMb_maId)
-                .Rows.Add({"", MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
+                .Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
             Next
             .ClearSelection()
         End With
@@ -31,4 +31,13 @@ Public Class frmMessenger_Members
     Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load
         initDGV()
     End Sub
+
+    Private Sub dgvChatMembers_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatMembers.CellDoubleClick, dgvChatMembers.CellContentDoubleClick
+        If dgvChatMembers.SelectedRows.Count > 0 Then
+            Dim mit_id = dgvChatMembers.SelectedRows(0).Cells("clmnMaId").Value
+            Dim f As New frmMitarbeitersuche(mit_id)
+            f.ShowDialog(Me)
+        End If
+    End Sub
+
 End Class