MS Rework
This commit is contained in:
@@ -247,7 +247,7 @@ Public Class frmUserKonfig
|
||||
Case 3
|
||||
Try
|
||||
DD_ECMAdmin.TBAD_Users.Clear()
|
||||
Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_USER_MODULES T1 where T.GUID = T1.USER_ID AND T1.MODULE_ID = 0 ORDER BY T.USERNAME")
|
||||
Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_USER_MODULES T1 where T.GUID = T1.USER_ID AND T1.MODULE_ID = 1 ORDER BY T.USERNAME")
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
For Each userrow As DataRow In DT.Rows
|
||||
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
|
||||
|
||||
Reference in New Issue
Block a user