FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9268
Вход
InteractiveSearch

Интерактивный поиск в Grid-e


 
Прислал: EMustafaoglu   Категория: Интерфейс


  
  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  
  

 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (2.222) Вложение [7.1]kb
Дополнения пользователей
InteractiveSearch
[+][?]
alexan
15.03.06 12:41:05

В данном примере кода после установки второй опции и далее например ввода в первое поле буквы t
сработает все корректно, но когда мы вновь перейдем на первую опцию (имеется ввиду Optiongroup1) и
удалим букву t, Grid1 покажет пусто, а это уже не совсем корректно.
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика