Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Поиск по строке в таблице  [new]
ularsoft
Member

Откуда:
Сообщений: 355
Здравствуйте!
Вывожу данные в EXCEL с помощью готового файла шаблона. Имеется таблица t3
Kod Name
1 Склад депо 1
2 Депо
3 Нота
Выходная форма должна быть так
Код НаименованиеПримечание
1 Склад депо 1 Свой
2 Депо Свой
3 Нота Чужой
Если не правильно, то не ругайтесь пожалуйста :)
IF LIKE('%депо%', ALLTRIM(t3.Name))
	.range('C'+ALLTRIM(STR(i))).select
	xl.selection.value='Свой'
	ELSE
	.range('C'+ALLTRIM(STR(i))).select
	xl.selection.value='Чужой'
ENDIF
Не срабатывает. Что делать? Подскажите пожалуйста.
16 апр 19, 12:42    [21863543]     Ответить | Цитировать Сообщить модератору
 Re: Поиск по строке в таблице  [new]
Sergey Sizov
Member

Откуда:
Сообщений: 1547
ularsoft,
для начала открой и почитай документацию по функции like() и посмотри результаты выполнения простого кода, который сам бы мог написать:
?LIKE('%депо%', 'депо')
?LIKE('*депо*', 'депо')
?LIKE('*депо*', 'Депо')
?LIKE('*депо*', Lower('Депо'))

Итого, легким движением руки исходный код превращается в 1(одну!) строку:
.Cells(i, 3).value = Iif(LIKE('*депо*', Lower(t3.Name)), 'Свой', 'Чужой')
16 апр 19, 13:14    [21863625]     Ответить | Цитировать Сообщить модератору
 Re: Поиск по строке в таблице  [new]
Sergey Sizov
Member

Откуда:
Сообщений: 1547
ularsoft,
более быстрый вариант:
.Cells(i, 3).value = Iif('депо' $ Lower(t3.Name), 'Свой', 'Чужой')
16 апр 19, 13:21    [21863638]     Ответить | Цитировать Сообщить модератору
 Re: Поиск по строке в таблице  [new]
ularsoft
Member

Откуда:
Сообщений: 355
Ваууу... Так легко и быстро :)
16 апр 19, 13:22    [21863641]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить