Форум: "Базы";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизВопром по DBF таблицам... Найти похожие ветки
← →
Delirium (2001-12-26 15:02) [3]
var Ok:boolean;
procedure TForm1.Table1BeforeEdit(DataSet: TDataSet);
begin
Ok:=True;
end;
procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
begin
Ok:=True;
end;
procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
if Ok then
begin
Table1.FieldByName("S").AsInteger:=Table1.FieldByName("N1").AsInteger+
Table1.FieldByName("N2").AsInteger;
Ok:=False;
end;
end;
И никаких "циклов".
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.007 c