AppStd/UserManager
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj: fix assignment group -> module

Browse Source
This commit is contained in:
Jonathan Jenne 2018-06-13 14:11:43 +02:00
parent c5e310eed3
commit 57c98a31a5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
DDUserManager/DDUserManager/frmMain.vb
View File

@ -934,13 +934,13 @@ Public Class frmMain
Private Sub btnModules_AddGroups_Click(sender As Object, e As EventArgs) Handles btnModules_AddGroups.Click Private Sub btnModules_AddGroups_Click(sender As Object, e As EventArgs) Handles btnModules_AddGroups.Click
Try Try
Dim selectedGroupHandles = viewModules_AvailableUsers.GetSelectedRows().ToList() Dim selectedGroupHandles = viewModulesGroups_AvailableGroups.GetSelectedRows().ToList()
Dim selectedModule As TBDD_MODULESRow = GetSelectedModule(ItemType.Group) Dim selectedModule As TBDD_MODULESRow = GetSelectedModule(ItemType.Group)
For Each handle As Integer In selectedGroupHandles For Each handle As Integer In selectedGroupHandles
Dim rowView As DataRowView = viewModules_AvailableUsers.GetRow(handle) Dim rowView As DataRowView = viewModulesGroups_AvailableGroups.GetRow(handle)
Dim groupRow As TBDD_GROUPSRow = rowView.Row Dim groupRow As TBDD_GROUPSRow = rowView.Row
TBDD_GROUPS_MODULESTableAdapter.Insert(groupRow.GUID, selectedModule.GUID, $"Assign Group {groupRow.NAME} to Module {selectedModule.NAME}", Environment.UserName) TBDD_GROUPS_MODULESTableAdapter.Insert(selectedModule.GUID, groupRow.GUID, $"Assign Group {groupRow.NAME} to Module {selectedModule.NAME}", Environment.UserName)
Next Next
ReloadGroupsForModule(selectedModule.GUID) ReloadGroupsForModule(selectedModule.GUID)
@ -958,7 +958,7 @@ Public Class frmMain
For Each handle As Integer In selectedGroupHandles For Each handle As Integer In selectedGroupHandles
Dim rowView As DataRowView = viewModulesGroups_AssignedGroups.GetRow(handle) Dim rowView As DataRowView = viewModulesGroups_AssignedGroups.GetRow(handle)
Dim groupRow As TBDD_GROUPSRow = rowView.Row Dim groupRow As TBDD_GROUPSRow = rowView.Row
TBDD_GROUPS_MODULESTableAdapter.Delete(groupRow.GUID, selectedModule.GUID) TBDD_GROUPS_MODULESTableAdapter.Delete(selectedModule.GUID, groupRow.GUID)
Next Next
ReloadGroupsForModule(selectedModule.GUID) ReloadGroupsForModule(selectedModule.GUID)