在Access中如何用InStr函数实现代码瘦身？

可以采用“旁门左道”的方式使用Instr函数实现代码的简练。下面是一个典型的例子，检测字符串中是否包含一个元音字母： 1、普通的方法：If UCase$(char) = "A" orUCase$(char) = "E" or UCase$(char) = "I" or UCase$(char) ="O" or UCase$(char) = "U" Then        ' it is a vowel        End If 2、更加简练的方法：If InStr("AaEeIiOoUu", char) Then       ' it is a vowel        End If 同样，通过单词中没有的字符作为分界符，使用InStr来检查变量的内容。下面的例子检查Word中是否包含一个季节的名字： 1、普通的方法：If LCase$(word) = "winter" orLCase$(word) = "spring" or LCase$(word) = _ "summer" orLCase$(word) = "fall" Then        ' it is a season's name        End If 2、会更加简练的方法：IfInstr(";winter;spring;summer;fall;", ";" & word &";") Then        ' it is a season's name        End If 有时候，甚至可以使用InStr来替代Select Case代码段，但一定要注意参数中的字符数目。