Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

Глюки в цыкле с таблицей   Найти похожие ветки 

 
RDA ©   (2003-05-04 17:20) [0]

какой-то глюк, или я чего-то не замечаю

if not Shb.IsEmpty then
begin
Shb.First;
while not Shb.Eof do
begin
if ShbCHIP.AsBoolean=True then
begin
Shb.Edit;
ShbCHIP.AsBoolean:=False;
Shb.Post;
end;
Shb.Next;
end;
end;

В любом случае исправляет только первую запись и выходит из цыкла сколько бы не было записей в таблице.


 
DrPass ©   (2003-05-04 19:24) [1]

А как насчет вообще заменить всю эту байду на
update shb set chip=<чего там у тебя в булевом поле>


 
MsGuns ©   (2003-05-04 22:41) [2]

Скорее всего, этот CHIP у тебя каким-то образом участвует в упорядочении записей (ключ/Индекс или указан в Order By запроса)


 
Anatoly Podgoretsky ©   (2003-05-05 08:37) [3]

MsGuns © (04.05.03 22:41)
100 процентов, ну и еще немного остается на добулю обработчиков After/Before


 
RDA ©   (2003-05-05 09:13) [4]

>>DrPass Нет в запросе это реализовать нельзя (по нескольким причинам)
>>MsGuns Индексов нет, таблица в запросах не участвует
>>Anatoly Podgoretsky - After/Before пустые.

Но мистика вот в чем после 20 минут мучений и не пониманий переписал так и все заработало (сам знаю что бред - но пашет)


if not Shb.IsEmpty then
begin
Shb.First;
while not Shb.Bof do
begin
if ShbCHIP.AsBoolean=True then
begin
Shb.Edit;
ShbCHIP.AsBoolean:=False;
Shb.Post;
end;
Shb.Prior;
end;
end;


 
Mike Kouzmine ©   (2003-05-05 09:26) [5]

Все врет, все..



Страницы: 1 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
6-83642
CRACKISH
2003-03-23 19:52
2003.05.26
как отправить Майл!!!!


14-83679
-=DeMoH=-
2003-05-04 12:56
2003.05.26
КАК УЗНАТЬ, ЧТО НУЖНО ПРОГЕ?


7-83772
GydruS
2003-03-21 08:32
2003.05.26
Получение данных о линейном входе и понижение его громкости


4-83798
iNew
2003-03-27 07:46
2003.05.26
Посмотрите на код и оцените с точки зрения оптимальности и вообще


1-83607
Zigs
2003-05-14 17:13
2003.05.26
Спецсимволы в TDBEdit (TEdit)