кнопка не работает

← →
Kislyak (2002-10-21 09:41) [0]

Хелп!!! Кнопка нажимается а данные не появлются может кто подскажет что не так делаю текст ниже:

procedure TForm19.btnMTClick(Sender: TObject);
begin

Table9.Edit;

Table9.FieldByName("VAL").AsString:= DbEdit29.Text;
Table9.FieldByName("SUMM").AsFloat:= StrToFloat(DbEdit7.Text);
Table9.FieldByName("PL").AsString:= DbEdit8.Text;
Table9.FieldByName("NAME").AsString:= DbEdit10.Text;
Table9.FieldByName("RPL").AsString:= DbEdit18.Text;
Table9.FieldByName("CH").AsString:= DbEdit25.Text;
Table9.FieldByName("MBK").AsString:=DbEdit26.Text;
Table9.FieldByName("IPL").AsString:= DbEdit16.Text;
Table9.FieldByName("SPL").AsString:= DbEdit17.Text;
Table9.FieldByName("MPL").AsString:= DbEdit9.Text;
Table9.FieldByName("MPO").AsString:= DbEdit13.Text;
Table9.FieldByName("SPO").AsString:= DbEdit12.Text;
Table9.FieldByName("NPO").AsString:= DbEdit14.Text;
Table9.FieldByName("RPO").AsString:= DbEdit21.Text;
Table9.FieldByName("IPO").AsString:= DbEdit19.Text;
Table9.FieldByName("SPO").AsString:= DbEdit20.Text;
Table9.FieldByName("NUM").AsFloat:= StrToFloat(DbEdit3.Text);
Table9.FieldByName("DATE").AsDateTime:= Now;
Table9.FieldByName("VO").AsString:= DbEdit30.Text;
Table9.FieldByName("BCS").AsString:= DbEdit23.Text;;
Table9.FieldByName("KP").AsFloat:= StrToFloat(DbEdit22.Text);
Table9.FieldByName("ASN").AsString:= DbMemo1.Text;
Table9.Post;
Table9.Refresh;

end;

← →
ЮЮ © (2002-10-21 11:03) [1]

А где они должны появиться. Ты используешь DB-компоненты, которые ч/з DataSource связаны с набором данных. Надеюсь, это и есть Table9 :-). При корректировке в любом из этих полей НД сам переведётся в состояние dsEdit. Присваивать тоже ничнго не надо. Остается сделать

procedure TForm19.btnMTClick(Sender: TObject);
begin
Table9.Post;
end;

← →
Crok (2002-10-22 07:51) [2]

ты наверное собрал данные из разных таблиц
Вместо Table9.Edit; Поставь Table9.Append;

> Table9.Refresh;

Table9.Active := False;
Table9.Active := True;
?

кнопка не работает Найти похожие ветки