Application.CheckField 方法 (Project)

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

语法

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

expression：表示 Application 对象的变量。

参数

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

比较字符串

比较字符串	Description
"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 支持和反馈，获取有关如何接收支持和提供反馈的指南。