程序代码：

复制代码 代码如下:

'关键字的搜索

str="select * from tableName where id>4"

if srhKey<>"" then

keyArr=split(srhKey," ")

j=UBound(keyArr)

t=0

dim keystrArr()

for i=0 to j

if keyArr(i)<>"" then

redim preserve keystrArr(t)

strfilter="(empZw like '%"&keyArr(i)&"%' or empDep like '%"&keyArr(i)&"%' or empGz like '%"

strfilter=strfilter&keyArr(i)&"%' or empWy1 like '%"&keyArr(i)&"%' or empWy2 like '%"&keyArr(i)

strfilter=strfilter&"%' or empYq like '%"&keyArr(i)&"%' or com_name like '%"&keyArr(i)&"%')"

keystrArr(t)=strfilter

t=t+1

end if

next

keystr=join(keystrArr," and ")

str=str&" and "&keystr

end if