InteractiveSearch

Интерактивный поиск в Grid-e
[code] SELECT customers IF THISFORM.optiongroup1.Value =1 L1 = UPPER(alltrim(thisform.text1.value)) LN1 = LEN(L1) L2 = UPPER(alltrim(thisform.text2.value)) LN2 = LEN(L2) IF !EMPTY(thisform.text1.value) AND !EMPTY(THISFORM.TEXT2.Value) SET FILTER TO UPPER(LEFT(customers.contactnam,LN1)) == L1 AND ; UPPER(LEFT(customers.companynam,LN2)) == L2 ELSE IF !EMPTY(thisform.text1.value) SET FILTER TO UPPER(LEFT(customers.contactnam,LN1)) == L1 ENDIF IF !EMPTY(THISFORM.TEXT2.Value) SET FILTER TO UPPER(LEFT(customers.companynam,LN2)) == L2 ENDIF ENDIF ELSE IF !EMPTY(thisform.text1.value) AND !EMPTY(THISFORM.TEXT2.Value) SET FILTER TO ATC(alltrim(thisform.text1.value),customers.contactnam) > 0 AND ; ATC(alltrim(thisform.text2.value),customers.companynam) > 0 ELSE IF !EMPTY(thisform.text1.value) SET FILTER TO ATC(alltrim(thisform.text1.value),customers.contactnam) > 0 ENDIF IF !EMPTY(thisform.text2.value) SET FILTER TO ATC(alltrim(thisform.text2.value),customers.companynam) > 0 ENDIF ENDIF GO TOP ENDIF THISFORM.GRID1.Refresh [/code]
Автор: EMustafaoglu
0

Автор публикации

не в сети 1 год

admin

0
Комментарии: 0Публикации: 109Регистрация: 10-12-2000
Вложенные файлы
#
Тип файла
Размер
Название
1 .zip 7,10 КБ 505interactivsearch
Оставить комментарий
Авторизация
*
*
Генерация пароля