'关键字的搜索 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