Скачать: CL | DM;

Добавление данных в DB   Найти похожие ветки 

← →
Kirill_21   (2005-06-08 16:33) [0]

мастера, скажите, плз, что не так, почему виснет прога:
With Table2 do begin
First;
while not eof do begin
n:=Table2.FieldByName("NNN").AsString;
IF Table1.Lookup("NNN",n,"Fio")=NULL Then begin
Table1.Append;
Table1.FieldByName("NNN").AsString:=Table2.FieldByName("Npd").AsString;
Table1.FieldByName("Fio").AsString:=Table2.FieldByName("Fm").AsString+" "+
 Table2.FieldByName("Im").AsString+" "+Table2.FieldByName("Ot").AsString;
Table1.Post;
Next;
end;
end;
end;

---

← →
Sergey13 ©   (2005-06-08 16:38) [1]

Из цикла выйти не может.

---

← →
Anatoly Podgoretsky ©   (2005-06-08 16:40) [2]

Цикл бесконечный

---

← →
Johnmen ©   (2005-06-08 16:44) [3]

Когда не знаком с форматированием исх. текста, то жди и дальше и больше...:)))
А With зачем писАл ?

---

← →
Kirill_21   (2005-06-08 17:00) [4]

а без with не работает while not eof...
а через query то же самое можно обеспечить?

---

← →
Johnmen ©   (2005-06-08 17:25) [5]

>а без with не работает while not eof...

А что такое eof ?

---

← →
Kirill_21   (2005-06-08 17:30) [6]

"пока не конец файла"

---

← →
Johnmen ©   (2005-06-08 17:32) [7]

>"пока не конец файла"

Какого файла ?

---

← →
Kirill_21   (2005-06-08 17:35) [8]

Table2

---

← →
Johnmen ©   (2005-06-08 17:37) [9]

Прикольно :)))

---

← →
stakan ©   (2005-06-08 17:49) [10]

Next вынеси из условия IF

---

← →
Kirill_21   (2005-06-08 18:00) [11]

а через SQL как это можно сделать?

---

← →
Johnmen ©   (2005-06-08 18:08) [12]

>а через SQL как это можно сделать?

А что такое SQL ? И что это "это" ?

---

← →
evvcom ©   (2005-06-09 09:00) [13]

Используй без with: Table2.Eof и т.д.
А еще Table2.Next у тебя сидит в блоке if ... then begin ... end; отсюда и "невыход из цикла"

---

← →
Anatoly Podgoretsky ©   (2005-06-09 09:10) [14]

Kirill_21   (08.06.05 18:00) [11]
"это" не определено.

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c