JJ_12_11

2015-11-12 15:30:56 +01:00
parent 41ddd2556b
commit e303e47d76
13 changed files with 995 additions and 256 deletions
--- a/app/DD-Record-Organiser/ClassControlValues.vb
+++ b/app/DD-Record-Organiser/ClassControlValues.vb
@@ -74,7 +74,11 @@ Public Class ClassControlValues
                        radio.Checked = CBool(result)
                    Case 3 ' ComboBox
                        Dim combobox As ComboBox = DirectCast(control, ComboBox)
-                        combobox.SelectedIndex = combobox.FindStringExact(result)
+                        If combobox.SelectedIndex = -1 Then
+                            combobox.Text = result
+                        Else
+                            combobox.SelectedIndex = combobox.FindStringExact(result)
+                        End If
                    Case 4 'DateTimePicker
                        Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)