Project) (Application.CheckField 方法

如此 如果选定的任务或资源满足指定的条件。

语法

expression。 CheckField (_Field_, _Value_, _Test_, _Op_, _Field2_, _Value2_, _Test2_)

expression:表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Field 必需 String 要搜索的域的名称。
Value 必需 String 要使用 字段 指定字段的值进行比较的值。
Test 可选 String 字段 与 值 之间进行比较的类型。 默认值为"等于"。 可以是下列 比较字符串之一。
Op 可选 String 使用 字段、 测试和 值 建立的条件与第二个条件的关系。 Op 参数可以设置为"和"或"。
Field2 可选 String 要搜索的第二个域的名称。
Value2 可选 String 要与使用 Field2 指定的字段的值进行比较的值。
Test2 可选 String 在 Field2 和 Value2 之间进行的比较类型。 可以是与 Test 相同的比较字符串之一。

比较字符串

比较字符串 说明
"equals" Field 的值等于 Value 。
"does not equal" Field 的值不等于 Value 。
"is greater than" Field 的值大于 Value 。
"is greater than or equal to" Field 的值大于或等于 Value 。
"is less than" Field 的值小于 Value 。
"is less than or equal to" Field 的值小于或等于 Value 。
"is within" Field 的值在 Value 之内。
"is not within" Field 的值不在 Value 之内。
"contains" 字段 包含 值 。
"does not contain" 字段 不包含 值 。
"contains exactly" 字段 只包含 值 。

返回值

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 支持和反馈,获取有关如何接收支持和提供反馈的指南。