返回一个 variant (Integer) 指示 字符串表达式 的结果。
语法
StrComp ( string1， string2 [， compare ] )
StrComp 函数语法具有以下参数：
|
参数 |
说明 |
|---|---|
|
string1 |
必需。 任何有效的字符串表达式。 |
|
string2 |
必需。 任何有效的字符串表达式。 |
|
比较 |
可选。 指定字符串比较的类型。 如果 比较参数 为 Null，则会发生错误。 如果省略 比较 ，“ 选项比较” 设置将确定比较的类型。 |
设置
比较参数设置包括：
|
常数 |
值 |
说明 |
|---|---|---|
|
vbBinaryCompare |
0 |
执行二进制比较。 |
|
vbTextCompare |
1 |
执行文本比较。 |
返回值
StrComp 函数具有以下返回值：
|
If |
StrComp 返回 |
|---|---|
|
string1 小于 string2 |
来执行此操作 |
|
string1 等于 string2 |
0 |
|
string1 大于 string2 |
1 |
|
string1 或 string2 为 Null |
Null |
查询示例
|
Expression |
结果 |
|---|---|
|
SELECT ProductSales.ProductID、StrComp (ProductID、“PRO_XYZ10”) AS ComparisonResult FROM ProductSales; |
返回字段“ProductID”中的值，将“ProductID”中的值与“PRO_XYZ1”进行比较，并在 ComparisonResult 列中返回结果。 “ProductID”等于“PRO_XYZ10”，StrComp 函数将返回 0。 如果“ProductID”小于“PRO_XYZ10”，则 StrComp 函数将返回 -1。 如果“ProductID”大于“PRO_XYZ10”，则 StrComp 函数将返回 1。 如果“ProductID”或“PRO_XYZ10”为 NULL，则 StrComp 函数将返回 NULL。 |
VBA 示例
注意: 以下示例演示了如何在 Visual Basic for Applications (VBA) 模块中使用此函数。
此示例使用 StrComp 函数返回字符串比较的结果。 如果第三个参数为 1，则执行文本比较：如果第三个参数为 0 或省略，则执行二进制比较。
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ' Define variables.
MyComp = StrComp(MyStr1, MyStr2, 1) ' Returns 0.
MyComp = StrComp(MyStr1, MyStr2, 0) ' Returns -1.
MyComp = StrComp(MyStr2, MyStr1) ' Returns 1.
