powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Объясните плиз!
13 сообщений из 13, страница 1 из 1
Объясните плиз!
    #33399582
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот код кнопки которая удаляет запись из курсора выделенную в гриде:
set delete on
select rep_vibor_filtr
DELETE next 1 in rep_vibor_filtr
brow && просматриваю и убеждаюсь что запись удалена!
thisform.grid1.refresh

далее жму на кнп. создания отчета, вот часть кода:

select rep_vibor_filtr
brow && второй раз убеждаюсь что записи действительно нет
for rep_cntl = 1 to reccount()
go rep_cntl
rep_otch_zn2 = rep_otch_zn2+ alltrim(rep_vibor_filtr.filtr_admin)+'.and.' && а вот тут она откудато появляеться!!!!!
next rep_cntl

Откуда она появляеться? если ее небыло!
...
Рейтинг: 0 / 0
Объясните плиз!
    #33399667
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
reccount() дает ко-во ФИЗИЧЕСКИХ записей и не учитывает флаг "удаленная запись", который устанавливатеся на записи при DELETE

С уважением, Алексей
...
Рейтинг: 0 / 0
Объясните плиз!
    #33399755
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И что же в этом случае делать? посоветуйте плиз.
...
Рейтинг: 0 / 0
Объясните плиз!
    #33399778
Maltsev Max
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
Do WHILE ! EOF("rep_vibor_filtr")
  rep_otch_zn2 = rep_otch_zn2+ alltrim(rep_vibor_filtr.filtr_admin)+'.and.'
  SKIP IN rep_vibor_filtr
ENDDO
...
Рейтинг: 0 / 0
Объясните плиз!
    #33399781
Maltsev Max
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В начале надо еще
Код: plaintext
Go Top In rep_vibor_filtr
Написать
...
Рейтинг: 0 / 0
Объясните плиз!
    #33399850
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо выручили!
...
Рейтинг: 0 / 0
Объясните плиз!
    #33400124
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Интересное и в тот же момент необычное явление я обнаружил. В главной форме в методе Инит прописываю использование 2-х таблиц через условие if not used ... на форме специально поставил кнопку которая просто отображает поочередно эти таблицы. запускаю вторую форму из главной и нажимаю кнопку в которой прописан код сохранения и в начале этой кнопки тоже на всякий случай прописан код проверки открытия этих двух таблиц. и вот прикол. вторая форма их не увидела и открыла после открытия фокс говорит сто не может их обнаружить. почему так? разве открытые таблы не остаються в памяти?
...
Рейтинг: 0 / 0
Объясните плиз!
    #33400161
Трезвый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DataSession в первой форме может быть в Private? Тогда область данных у каждой формы своя
...
Рейтинг: 0 / 0
Объясните плиз!
    #33400196
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нет. во всех 1(default)
...
Рейтинг: 0 / 0
Объясните плиз!
    #33400320
Maltsev Max
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А первая форма случайно не закрывается ?!?
...
Рейтинг: 0 / 0
Объясните плиз!
    #33400331
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нет. все остальные модальные.
...
Рейтинг: 0 / 0
Объясните плиз!
    #33401004
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Недоходящий
...
for rep_cntl = 1 to reccount()
go rep_cntl
rep_otch_zn2 = rep_otch_zn2+ alltrim(rep_vibor_filtr.filtr_admin)+'.and.'
next rep_cntl


А чем тебя такой перебор не устраивает:
Код: plaintext
1.
2.
3.
scan
      rep_otch_zn2 = rep_otch_zn2+ alltrim(rep_vibor_filtr.filtr_admin)+'.and.'
endscan
вероятно go переносит указатель и на помеченные на удаление записи независимо от SET DELETE.
...
Рейтинг: 0 / 0
Объясните плиз!
    #33401009
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да это так. за этот пример спасибо
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Объясните плиз!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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