Помогите серенькому!!!

← →
Timka (2002-03-28 18:40) [7]

Спасибо, работает. Только не очень удобно просматривать(в данном случае). GotoKey действительно возвращает ноль, причём всегда. Вот полный текст :
procedure TForm1.Button4Click(Sender: TObject);
begin
Table2.IndexFieldNames :="nnompr";
Table1.First;
while not Table1.Eof do
begin
if (not (Table2.Eof and Table2.Bof))
or (not (Table1.Eof and Table1.Bof))
then
begin
Table2.SetKey;
Table2.FieldByName("nnompr").asString:= "41206";
{Table1.FieldByName("NNOM").Value;}
if not Table2.GotoKey then
begin
Application.MessageBox("плохо",сообщение, MB_OK);
exit; { здесь оно выбивает всегда, даже если тупо задать ключевое поле}
end;
Sopostavlenie; { ф-ция, точно рабочая}
Table1.Next;
end
else Application.MessageBox("ещё и связи нет","Сообщение", MB_OK);
{ никогда не высвечивается}
end ;{ while not Table1.Eof}
end;

если идти по Вашему пути, всё работает, если запускаю эту процедуру - облом. Что может быть не так? (больше в программе ничего не меняется...)

Помогите серенькому!!! Найти похожие ветки