Метод Application.CheckField (Project)
Значение True , если выбранные задачи или ресурсы соответствуют указанным условиям.
Синтаксис
выражение. CheckField (_Field_, _Value_, _Test_, _Op_, _Field2_, _Value2_, _Test2_)
выражение: переменная, представляющая объект Application.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Field | Обязательный | String | Имя поля для поиска. |
| Значение | Обязательный | String | Значение, сравниваемое со значением поля, указанного в поле Field. |
| Test | Необязательный | String | Тип сравнения между полем и значением. Значение по умолчанию равно. Может быть одной из следующих строк сравнения. |
| Op | Необязательный | String | Как критерии, установленные с полем, тестом и значением , связаны со вторыми критериями. Для аргумента OP можно задать значение "И" или "Или". |
| Field2 | Необязательный | String | Имя второго поля для поиска. |
| Value2 | Необязательный | String | Значение для сравнения со значением поля, заданного полем Field2. |
| Test2 | Необязательный | String | Тип сравнения между Field2 и Value2. Может быть одной из той же строки сравнения, что и Test. |
Строки сравнения
| Строка сравнения | Описание |
|---|---|
| "равно" | Значение Поля равно Значению. |
| "не равно" | Значение Поля не равно Значению. |
| "больше, чем" | Значение Поля больше значения Value. |
| "больше или равно" | Значение Поля больше или равно Значению. |
| "меньше, чем" | Значение Поля меньше значения Value. |
| значение "меньше или равно" | Значение Поля меньше или равно значению Value. |
| "is within" | Значение Поля находится в значении Value. |
| "не внутри" | Значение Field не находится в значении Value. |
| "contains" | Поле содержит значение. |
| "не содержит" | Поле не содержит значение. |
| "содержит точно" | Поле точно содержит значение. |
Возвращаемое значение
Variant
Пример
В следующем примере определяется, равно ли значение Duration 1, и отображается соответствующее сообщение.
Sub Check_Field()
Dim T As Task
Dim Result As Boolean
Set T = ActiveProject.Tasks(3)
Result = CheckField("Duration", "1", "equals")
If Result Then
Result = MsgBox(T.GetField(pjTaskName) + " task Duration is equal to value specified.", vbOKOnly, "CheckField Method")
Else
Result = MsgBox(T.GetField(pjTaskName) + " task Duration is not equal to value specified.", vbOKOnly, "CheckField Method")
End If
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.