add default value for lookupgrid
This commit is contained in:
parent
e540d93c0d
commit
0d4c6192dd
@ -75,6 +75,14 @@ Public Class ClassControls
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
If Not String.IsNullOrEmpty(Vorgabe) Then
|
||||||
|
Dim oDefaultValues = Vorgabe.
|
||||||
|
Split(",").ToList().
|
||||||
|
Select(Function(item) item.Trim()).
|
||||||
|
ToList()
|
||||||
|
oControl.SelectedValues = oDefaultValues
|
||||||
|
End If
|
||||||
|
|
||||||
AddHandler oControl.SelectedValuesChanged, AddressOf Lookup_SelectedValuesChanged
|
AddHandler oControl.SelectedValuesChanged, AddressOf Lookup_SelectedValuesChanged
|
||||||
|
|
||||||
oConnectionString = ClassFormFunctions.GetConnectionString(conid)
|
oConnectionString = ClassFormFunctions.GetConnectionString(conid)
|
||||||
@ -87,6 +95,8 @@ Public Class ClassControls
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Return oControl
|
Return oControl
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
|
LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user