powered by simpleCommunicator - 2.0.40     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск по строке в таблице
4 сообщений из 4, страница 1 из 1
Поиск по строке в таблице
    #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
Поиск по строке в таблице
    #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
Поиск по строке в таблице
    #39802086
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ularsoft,
более быстрый вариант:
Код: sql
1.
.Cells(i, 3).value = Iif('депо' $ Lower(t3.Name), 'Свой', 'Чужой')
...
Рейтинг: 0 / 0
Поиск по строке в таблице
    #39802088
ularsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ваууу... Так легко и быстро :)
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск по строке в таблице
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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