distinct at profile list

This commit is contained in:
Jonathan Jenne 2021-01-27 17:09:11 +01:00
parent fd4d35195c
commit 6c58d91973

View File

@ -1546,7 +1546,7 @@ Public Class frmIndex
End Sub
Sub Refresh_Dokart()
Try
Dim sql = String.Format("select * from VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName)
Dim sql = String.Format("SELECT DISTINCT * FROM VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName)
_Logger.Info("SQL DoctypeList: " & sql)
DT_DOKART = ClassDatabase.Return_Datatable(sql)
cmbDokumentart.DataSource = DT_DOKART