jj add select only combobox option

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -1691,6 +1691,7 @@ Public Class ClassControlBuilder
                            vformat As String,
                            _new As Boolean,
                            read_only As Boolean,
+                           select_only As Boolean,
                            required As Boolean,
                            static_list As String,
                            sqlcommand As String,
@@ -1723,6 +1724,10 @@ Public Class ClassControlBuilder
                 control.Enabled = Not read_only
             End If
 
+            If (Not _designMode And select_only) Then
+                control.DropDownStyle = ComboBoxStyle.DropDownList
+            End If
+
             AddComboHandler(control, vformat)
 
             If _new And IsNothing(parent) Then