程序代码:
以下为引用的内容:
复制代码 代码如下:
'关键字的搜索
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=strfilterkeyArr(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