Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск по строке в таблице / 4 сообщений из 4, страница 1 из 1
16.04.2019, 12:42
    #39802033
ularsoft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по строке в таблице
Здравствуйте!
Вывожу данные в EXCEL с помощью готового файла шаблона. Имеется таблица t3 Kod Name 1 Склад депо 12 Депо3 НотаВыходная форма должна быть такКод НаименованиеПримечание 1 Склад депо 1 Свой2 Депо Свой3 Нота ЧужойЕсли не правильно, то не ругайтесь пожалуйста :)
Код: sql
1.
2.
3.
4.
5.
6.
7.
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

Не срабатывает. Что делать? Подскажите пожалуйста.
...
Рейтинг: 0 / 0
16.04.2019, 13:14
    #39802076
Sergey Sizov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по строке в таблице
ularsoft,
для начала открой и почитай документацию по функции like() и посмотри результаты выполнения простого кода, который сам бы мог написать:
Код: sql
1.
2.
3.
4.
?LIKE('%депо%', 'депо')
?LIKE('*депо*', 'депо')
?LIKE('*депо*', 'Депо')
?LIKE('*депо*', Lower('Депо'))


Итого, легким движением руки исходный код превращается в 1(одну!) строку:
Код: sql
1.
.Cells(i, 3).value = Iif(LIKE('*депо*', Lower(t3.Name)), 'Свой', 'Чужой')
...
Рейтинг: 0 / 0
16.04.2019, 13:21
    #39802086
Sergey Sizov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по строке в таблице
ularsoft,
более быстрый вариант:
Код: sql
1.
.Cells(i, 3).value = Iif('депо' $ Lower(t3.Name), 'Свой', 'Чужой')
...
Рейтинг: 0 / 0
16.04.2019, 13:22
    #39802088
ularsoft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по строке в таблице
Ваууу... Так легко и быстро :)
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск по строке в таблице / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]