powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Обновление таблицы в FOX 2.6 (Помогите!!! Очень срочно!!!)
7 сообщений из 7, страница 1 из 1
Обновление таблицы в FOX 2.6 (Помогите!!! Очень срочно!!!)
    #37357601
СТАРЧЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Возникла проблема, при первом запуске процедуры, все хорошо, при втором и последующих данные не помечаются на удаление, но добавляются из t4, после закрытия и открытия программы опять в первый вызов процедуры данные удаляются, а в последующие разы нет, но добавляются стабильно!!! Помогите плз!!! В VFP лечил tableupdate(). Тут открытие\закрытие таблицы, сброс индекса, переход на др. запись - не помогают!!! Сижу и ПЛАЧУ!!!

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
sele t0404017 
set order to podd
seek str(_poddon, 4 )
DELE FOR CEX= 7  AND nomttn=_nomttn and str(poddon, 4 )=str(_poddon, 4 );
             AND serttn=_serttn AND ns=_ns AND datform=_datform;
             while str(poddon, 4 )=str(_poddon, 4 )
append from t4
...
Рейтинг: 0 / 0
Обновление таблицы в FOX 2.6 (Помогите!!! Очень срочно!!!)
    #37357622
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
СТАРЧЕВозникла проблема, при первом запуске процедуры, все хорошо, при втором и последующих данные не помечаются на удаление, но добавляются из t4, после закрытия и открытия программы опять в первый вызов процедуры данные удаляются, а в последующие разы нет, но добавляются стабильно!!! Помогите плз!!! В VFP лечил tableupdate(). Тут открытие\закрытие таблицы, сброс индекса, переход на др. запись - не помогают!!! Сижу и ПЛАЧУ!!!

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
sele t0404017 
set order to podd
seek str(_poddon, 4 )
DELE FOR CEX= 7  AND nomttn=_nomttn and str(poddon, 4 )=str(_poddon, 4 );
             AND serttn=_serttn AND ns=_ns AND datform=_datform;
             while str(poddon, 4 )=str(_poddon, 4 )
append from t4


Зачем искать, если удаляются все записи? А что в индексе podd?
...
Рейтинг: 0 / 0
Обновление таблицы в FOX 2.6 (Помогите!!! Очень срочно!!!)
    #37357623
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
наверное тут влияет set deleted on, если он включен, то при индексированной таблице указатель записи уходит вверх и условие while yt chf,fnsdftn///
...
Рейтинг: 0 / 0
Обновление таблицы в FOX 2.6 (Помогите!!! Очень срочно!!!)
    #37357632
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Надо либо FOR либо WHILE:
Код: plaintext
1.
2.
DELE FOR CEX= 7  AND nomttn=_nomttn and str(poddon, 4 )=str(_poddon, 4 );
             AND serttn=_serttn AND ns=_ns AND datform=_datform;
             while str(poddon, 4 )=str(_poddon, 4 )
Странно что этот код вообще работает.

Еще для отладки посмотри чего в переменных в момерт первого вызова и второго.
...
Рейтинг: 0 / 0
Обновление таблицы в FOX 2.6 (Помогите!!! Очень срочно!!!)
    #37357831
СТАРЧЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
О!!! ТОВАРИЩИ, ПРОСТИТЕ САМ ТУПАНУЛ!!!!!

Я в таблицу t4 все время append из t3, а t4 не zap, и получается с каждым вызовом процедуры данные удваиваются!

FOR И WHILE замечательно работают!!!
...
Рейтинг: 0 / 0
Обновление таблицы в FOX 2.6 (Помогите!!! Очень срочно!!!)
    #37357845
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
СТАРЧЕFOR И WHILE замечательно работают!!!
Рискуешь, сам себе грабли закладываешь.
...
Рейтинг: 0 / 0
Обновление таблицы в FOX 2.6 (Помогите!!! Очень срочно!!!)
    #37357901
СТАРЧЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
авторРискуешь, сам себе грабли закладываешь.

Варенье есть можно? Можно!!!
Сало есть можно? Можно!!!
Значит и Сало с Вареньем МОЖНО!!!

P.S. Шутка юмора!!! Как хорошо, когда все хорошо!!!
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Обновление таблицы в FOX 2.6 (Помогите!!! Очень срочно!!!)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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