--- ibx/trunk/examples/DBAdmin/DataModule.pas	2018/03/14 12:48:51	209
+++ ibx/trunk/examples/DBAdmin/DataModule.pas	2018/03/14 15:03:38	210
@@ -153,6 +153,7 @@ type
     procedure IBXServicesConnection1Login(Service: TIBXServicesConnection;
       var aServerName: string; LoginParams: TStrings);
     procedure LegacyUserListAfterOpen(DataSet: TDataSet);
+    procedure LegacyUserListAfterPost(DataSet: TDataSet);
     procedure LegacyUserListBeforeClose(DataSet: TDataSet);
     procedure ShadowFilesCalcFields(DataSet: TDataSet);
     procedure SubjectAccessRightsBeforeOpen(DataSet: TDataSet);
@@ -1234,6 +1235,11 @@ begin
   RoleNameList.Active := true;
 end;
 
+procedure TDatabaseData.LegacyUserListAfterPost(DataSet: TDataSet);
+begin
+  RoleNameList.Active := true;
+end;
+
 procedure TDatabaseData.LegacyUserListBeforeClose(DataSet: TDataSet);
 begin
   RoleNameList.Active := false;