lookupgrid as column editor

This commit is contained in:
Jonathan Jenne 2020-01-30 10:42:41 +01:00
parent 39921824b8
commit 5b24845189

View File

@ -492,10 +492,10 @@ Public Class ClassControlCreator
If GridTables.ContainsKey(e.Column.FieldName) Then
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)
oEditor.AutoComplete = True
AddHandler oEditor.Validating, Sub(_sender As ComboBoxEdit, _e As CancelEventArgs)
If oItems.Contains(_sender.EditValue) Then
_e.Cancel = False
@ -505,12 +505,7 @@ Public Class ClassControlCreator
End Sub
For Each oRow2 In oComboboxDataTable.Rows
Dim oValue = oRow2.item(0)
oEditor.Items.Add(oValue)
oItems.Add(oValue)
Next
oEditor.DataSource = oComboboxDataTable
e.RepositoryItem = oEditor
End If
End If