AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

lookupgrid as column editor

Browse Source
This commit is contained in:
Jonathan Jenne 2020-01-30 10:42:41 +01:00
parent 39921824b8
commit 5b24845189
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -492,10 +492,10 @@ Public Class ClassControlCreator
If GridTables.ContainsKey(e.Column.FieldName) Then If GridTables.ContainsKey(e.Column.FieldName) Then
Dim oComboboxDataTable As DataTable = GridTables.Item(e.Column.FieldName) Dim oComboboxDataTable As DataTable = GridTables.Item(e.Column.FieldName)
Dim oEditor As New RepositoryItemComboBox() 'Dim oEditor As New RepositoryItemComboBox()
Dim oEditor As New RepositoryItemLookUpEdit()
Dim oItems As New List(Of String) Dim oItems As New List(Of String)
oEditor.AutoComplete = True
AddHandler oEditor.Validating, Sub(_sender As ComboBoxEdit, _e As CancelEventArgs) AddHandler oEditor.Validating, Sub(_sender As ComboBoxEdit, _e As CancelEventArgs)
If oItems.Contains(_sender.EditValue) Then If oItems.Contains(_sender.EditValue) Then
_e.Cancel = False _e.Cancel = False
@ -505,12 +505,7 @@ Public Class ClassControlCreator
End Sub End Sub
For Each oRow2 In oComboboxDataTable.Rows oEditor.DataSource = oComboboxDataTable
Dim oValue = oRow2.item(0)
oEditor.Items.Add(oValue)
oItems.Add(oValue)
Next
e.RepositoryItem = oEditor e.RepositoryItem = oEditor
End If End If
End If End If