Ошибка в БД

[artemavd]

Добрый день! Подскажите пожалуйста, что значит эта ошибка: "Type mismatch for field 'ID_Predmet',expecting: String actual Float'"?

[S@fer]

Несоответствие типов. Попытка вставить число в строковое поле.
зы. заключи значение для ID_Predmet в ковычки

[artemavd]

Да я всего лишь в этом коде вставки значений:

procedure TForm2.SpeedButton4Click(Sender: TObject);
var
 i:integer;
begin
 i:=1;
 while Form1.SG9.Cells[1,i] <> '' do begin
  if Form2.Table1.Locate('LAST_NAME;FIRST_NAME;OTCHESTVO',VarArrayOf([Form1.SG9.Cells[1,i],
                                 Form1.SG9.Cells[2,i],Form1.SG9.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then
  begin
     Table1.Insert;
     Table1.FieldByName('KLASS').AsString:=Form1.Edit2.Text;
     Table1.FieldByName('LAST_NAME').AsString:=Form1.SG9.Cells[1,i];
     Table1.FieldByName('FIRST_NAME').AsString:=Form1.SG9.Cells[2,i];
     Table1.FieldByName('OTCHESTVO').AsString:=Form1.SG9.Cells[3,i];
     Table1.Post;
     Table1.Refresh;
  end;

  if Table_74.Locate('Chetvert;GOD',VarArrayOf([Form1.DBLookupComboBox2.Text,
                                                Form1.Edit3.Text]),
                                 [loCaseInsensitive,loPartialKey]) = False then
  begin
   Table2.Refresh;
   Table_74.Insert;
   Table_74.FieldByName('Chetvert').AsString:=Form1.DBLookupComboBox2.Text;
   Table_74.FieldByName('GOD').AsString:=Form1.Edit3.Text;
   Table_74.Post;
  end;

  begin
   Table3.Insert;
   Table3.FieldByName('ID_Chetvert').AsInteger:=Table_74.FieldByName('ID').AsInteger;
   Table3.FieldByName('IDInfo_2').AsInteger:=Table1.FieldByName('ID').AsInteger;
   Table3.FieldByName('ID_Predmet').AsInteger:=Table2.FieldByName('ID_Predmet').AsInteger;

   Table3.FieldByName('DVOEK').AsString:=Form1.SG2.Cells[0,i];
   Table3.FieldByName('TROEK').AsString:=Form1.SG2.Cells[1,i];
   Table3.FieldByName('CHETVEROK').AsString:=Form1.SG2.Cells[2,i];
   Table3.FieldByName('PYTEROK').AsString:=Form1.SG2.Cells[3,i];
   Table3.FieldByName('KO').AsString:=Form1.SG3.Cells[0,i];
   Table3.FieldByName('SB').AsString:=Form1.SG3.Cells[1,i];
   Table3.FieldByName('KY').AsString:=Form1.SG3.Cells[2,i];
   Table3.FieldByName('Y').AsString:=Form1.SG3.Cells[3,i];
   Table3.FieldByName('O').AsString:=Form1.SG3.Cells[4,i];
   Table3.FieldByName('CHO').AsString:=Form1.SG3.Cells[5,i];
   Table3.Post;
     end;
   Inc(i);
  end;
end;

добавил строчку которая выделена красным цветом. Я таким образом пытался связать таблицы predmety и rezult по этим полям. У меня в таблицу rezult в поле ID_Predmet заносится номер (ID_Predmet) предмета из таблицы predmety. В обоих таблицах поле ID_Predmet имеет тип N. Кстати, эта ошибка появляется сразу при компиляции. Как можно попробовать исправить ее?
P.S. Мой 600ти сотый пост

[Stilet]

Попробуй без типизации:

Table3.FieldByName('ID_Predmet'):=Table2.FieldByName('ID_Predmet');

p.S. ИМХО лучше это делать через SQL-INSERT