add vectorbehaviour property
This commit is contained in:
@@ -65,7 +65,8 @@ Module ModuleFinalIndexProperties
|
||||
|
||||
<Category("Index")>
|
||||
<DisplayName("IndexBehaviour")>
|
||||
<PropertyAttributesProvider("IndexTypeStringProvider")>
|
||||
<TypeConverter(GetType(ClassVectorBehaviourListConverter))>
|
||||
<PropertyAttributesProvider("VectorIndexOnlyProvider")>
|
||||
Public Property VectorBehaviour As String
|
||||
|
||||
<Category("Index")>
|
||||
@@ -77,6 +78,8 @@ Module ModuleFinalIndexProperties
|
||||
Public Property Indicies As List(Of String)
|
||||
<Browsable(False)>
|
||||
Public Property IndiciesType As List(Of Integer)
|
||||
<Browsable(False)>
|
||||
Public Property VectorBehaviourType As List(Of String)
|
||||
|
||||
Public Sub VectorIndexBooleanProvider(attrs As PropertyAttributes)
|
||||
MaybeSetReadOnlyIfNotVectorIndex(attrs)
|
||||
@@ -107,6 +110,10 @@ Module ModuleFinalIndexProperties
|
||||
MaybeSetReadOnlyIfSQLHasNoValue(attrs)
|
||||
End Sub
|
||||
|
||||
Public Sub VectorIndexOnlyProvider(attrs As PropertyAttributes)
|
||||
MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_VECTOR_STRING})
|
||||
End Sub
|
||||
|
||||
Public Sub MaybeSetReadOnlyIfSQLHasNoValue(attrs As PropertyAttributes)
|
||||
Dim hasSQLValue As Boolean = (SQLCommand.Value <> String.Empty)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user