powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с удалением
6 сообщений из 6, страница 1 из 1
Проблема с удалением
    #35011722
LcF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
По неизвестной мне причине((, фокс почему то не видит(или не желает видеть) записи, которые необходимо пометить на удаление.
в текстбокс вводится то что надо удалить, а фокс не видит данной записи. Помогите плиз..
событие=клик кнопки...
SET DELETED ON
IF thisform.pageframe1.page6.optiongroup1.Value==1
IF thisform.pageframe1.page6.optiongroup2.Value==2
SELECT n_prod
GO TOP
DO WHILE !EOF()
IF n_prod.cod_pr=11 AND n_prod.v=0.20 AND n_prod.naim_tov=thisform.pageframe1.page6.text1.Text
DELETE
ENDIF
SKIP 1
ENDDO
ENDIF
ENDIF
...
Рейтинг: 0 / 0
Проблема с удалением
    #35011726
LcF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
для уточнения:
код идет прекрасно по 2 криериям (по значениям оптионгрупп) если убрать текстовый критерий-все работает отменно, показывает все нужные записи, а как только добавляешь поиск по значению текстбокса-непоказывает ничего((
...
Рейтинг: 0 / 0
Проблема с удалением
    #35011743
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И Вы думаете, что на основании предоставленной информации можно сказать что-то конкретное?
Во-первых, почему используется свойство Text, а не value?
Во-вторых, где конкретные значения текстбокса и поля?
В-третьих, для удаления всех записей, удовлетворяющих какому-либо условию надо воспользоваться всего лишь одной командой, а не городить длиннющий совершенно бессмысленный код. Точное сравнение (==) имее смысл только для символьных данных.
Конструкции вида
Код: plaintext
1.
2.
3.
4.
If усл. 1 
if усл. 2 
...
endif
endif
эквивалентна конструкция
Код: plaintext
1.
2.
if усл. 1  and усл. 2 
...
endif
Короче, окончательный авриант может выглядеть примерно так:
Код: plaintext
1.
2.
IF thisform.pageframe1.page6.optiongroup1.Value= 1  and thisform.pageframe1.page6.optiongroup2.Value= 2 
  delete for  n_prod.cod_pr= 11  AND n_prod.v= 0 . 20  AND n_prod.naim_tov=thisform.pageframe1.page6.text1.value
endif
или SQL-вариант:
Код: plaintext
1.
2.
IF thisform.pageframe1.page6.optiongroup1.Value= 1  and thisform.pageframe1.page6.optiongroup2.Value= 2 
  delete from n_prod where  n_prod.cod_pr= 11  AND n_prod.v= 0 . 20  AND n_prod.naim_tov=thisform.pageframe1.page6.text1.value
endif
...
Рейтинг: 0 / 0
Проблема с удалением
    #35011811
apapacy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Берите строки в alltrim() и убедитесь, что exact установлено в ON. У Вас наверняка длина текстового поля неравна длине поля БД.
...
Рейтинг: 0 / 0
Проблема с удалением
    #35012021
MiklS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Условие
....n_prod.naim_tov=thisform.pageframe1.page6.text1.Text
ДОЛЖНО ВЫГЛЯДЕТЬ ТАК
AND UPPER(ALLTRIM(n_prod.naim_tov))= UPPER(ALLTRIM(thisform.pageframe1.page6.text1.Text))
И БУДЕТ ВАМ СЧПСТЬЕ...
...
Рейтинг: 0 / 0
Проблема с удалением
    #35013406
LcF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всех благодарю, все отменно работает.
Сенкс
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с удалением
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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