غالبًا ما نواجه كلمات رئيسية متعددة في تطوير حقل واحد. بالطبع ، يتم استخدام الكلمات الرئيسية المتعددة في الفضاء أو مفصولة.
رمز البرنامج:
ما يلي هو المحتوى المرجعي:
ابحث عن الكلمات الرئيسية
str = حدد * من tableName حيث المعرف> 4
إذا كان srhkey <> ثم
Keyarr = Split (Srhkey ،)
J = Ubound (Keyarr)
t = 0
Dim Keystrarr ()
لأني = 0 إلى ي
إذا كان keyr (i) <> ثم
redim الحفاظ على المفاتيح (T)
strfilter = (empzw like '٪ & keyarr (i) & ٪' أو empdep like '٪ & keyarr (i) و ٪' أو empgz like '٪
strfilter = strfilter & keyarr (i) & ٪ 'أو empwy1 مثل' ٪ & keyarr (i) & ٪ 'أو empwy2 like' ٪ & keyarr (i)
strfilter = strfilter & ٪ 'أو empyq like' ٪ & keyarr (i) & ٪ 'أو com_name like' ٪ & keyarr (i) و ٪)
KeyStrArrrrrrrrrrrr (t) = strfilter
t = t+1
إنهاء إذا
التالي
KeySttr = Join (KeyStrArrrrrrrrrrrrrdish)
str = str & & & keysttr
إنهاء إذا