Функция GetProp получает значение поля Value свойства Alias карточки CardData. DefautValue - это значение, которое возвращает функция GetProp, если свойства нет или значение поля свойства есть null. Свойство может быть любым объектом в системе (внутри это строка данных). Тип значения обычно может быть:
- строкой
- целым
- булевым
Параметры функции GetProp:
CardData - объект данных карточки
Alias - имя получаемого свойства типа строка
FieldsName - Имя поля строки, значение которого нам необходимо
DefaultValue - значение по умолчанию в случае, если получаемого свойства в карточке нет или значение поля Value свойства равно null.
' Получение значения свойства
Function GetProp(CardData, Alias, FieldsName, DefaultValue)
Dim Row
Set oProp = CardData.Sections(CardData.Type.AllSections.GetByAlias("Properties").ID)
Set Row=oProp.FindRow("@Name='" & Alias & "'")
If Row Is Nothing Then
GetProp = DefaultValue
Else
GetProp = Row.Value(FieldsName)
If IsNull(GetProp) Then GetProp = DefaultValue
End If
End Function
- строкой
- целым
- булевым
Параметры функции GetProp:
CardData - объект данных карточки
Alias - имя получаемого свойства типа строка
FieldsName - Имя поля строки, значение которого нам необходимо
DefaultValue - значение по умолчанию в случае, если получаемого свойства в карточке нет или значение поля Value свойства равно null.
' Получение значения свойства
Function GetProp(CardData, Alias, FieldsName, DefaultValue)
Dim Row
Set oProp = CardData.Sections(CardData.Type.AllSections.GetByAlias("Properties").ID)
Set Row=oProp.FindRow("@Name='" & Alias & "'")
If Row Is Nothing Then
GetProp = DefaultValue
Else
GetProp = Row.Value(FieldsName)
If IsNull(GetProp) Then GetProp = DefaultValue
End If
End Function
Комментариев нет:
Отправить комментарий