Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Лишняя запись в БД и ошибка (Pascal)
Всем привет!!!!!!!!!!!!!!
У меня 2 вопроса:
1. Почему ответ следующего столбика добавляется в запись на строчку ниже, а не в одну запись(строчку)?
Проблема в том , что получается нужны ответ в другой записи и цикл его не считает.

Так я зачисляю в ячейки значения :

Код
procedure TForm1.Button1Click(Sender: TObject);

  var

A:Integer;

begin

  if edit1.Text='' then

exit ;

A:=StrToInt(Edit1.Text);

if A=4 then

begin

ADOTable1.Open;

ADOTable1.Insert;

   ADOTable1.FieldByName('1').AsString:='2';

ADOTable1.Post;

ADoTable1.Close;

form1.Hide;

form2.Show;

end

  else

   begin

form1.Hide;

form2.Show

   end;

end;


И вот так :

Код
procedure TForm5.Button1Click(Sender: TObject);

  var

A:String;

begin

   if edit1.Text='' then

exit ;

if edit1.Text='чемодан' then

begin

ADOTable1.Open;

ADOTable1.Append;

   ADOTable1.FieldByName('3').AsString:='2';

ADOTable1.Post;

form5.Hide;

form6.Show;

end

  else

   begin

form5.Hide;

form6.Show

   end;

end;


2. Такая ошибка :

.............could not convert variant of type null into type integer.

Это когда цикл суммирует ответы(они не нулевые)(но лесенкой)(в каждой строке по ячейке=2,остальные =0)

Код
procedure TForm43.Button1Click(Sender: TObject);

var

k,i:integer;

begin

k:=0;

for I := 1 to 40 do k:=k+adotable1.Fields.Fields[i].Value;

label2.caption:=IntToStr(k)

end;

end.


Спасибо.
 
1 | Автор: zigzac | 2014-05-24, 09:53   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: