powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / TextBox
3 сообщений из 3, страница 1 из 1
TextBox
    #33981305
Evgeni4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вопрос плёвый:
на форме есть компонент TextBox, необходимо считать из него фразу и по этой фразе осуществить запрос в таблице
что-то типа этого

IF nkeyCode = 13
IF !EMPTY(THIS.Value)
SELECT KARTVUZW
SET FILTER TO z2 = //фраза из TextBox
DO FORM form3
ENDIF
This.Value = ""
ENDIF

какой код нужно написать?
...
Рейтинг: 0 / 0
TextBox
    #33981913
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Evgeni4какой код нужно написать?
А то, что написал ты - это что?
...
Рейтинг: 0 / 0
TextBox
    #33982113
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Evgeni4Вопрос плёвый:
на форме есть компонент TextBox, необходимо считать из него фразу и по этой фразе осуществить запрос в таблице
что-то типа этого

IF nkeyCode = 13
IF !EMPTY(THIS.Value)
SELECT KARTVUZW
SET FILTER TO z2 = //фраза из TextBox
DO FORM form3
ENDIF
This.Value = ""
ENDIF

какой код нужно написать?
Попробуй так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
LOCAL m.lcWhere
IF EMPTY(THIS.Value)
     m.lcWhere = [.T.]
ELSE
     m.lcWhere = [z2 ='] + CAST(THIS.Value AS V(250) + [']
ENDIF
SELECT * FROM KARTVUZW INTO CURSOR tResult NOFILTER READWRITE ;
WHERE &lcWhere
.
Если у тебя в TextBox.Value могут быть символы ', то замени ограничитель строки с ' на ".
С уважением, Алексей.
P.S. Возможно, имя курсора (tResult) у тебя другое.
P.P.S. Если данные должны быть отсортированы, то добавь в SELECT предикат ORDER BY ...
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / TextBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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