想修改数据库最后一条记录的一个字段,同时再新增加一条记录,
form2.DataSource2.Edit;
form2.ADOTable2.Last;
form2.ADOTable2.FieldByName('endtime').AsDateTime:=datetimepicker1.DateTime;
form2.adotable2.post;
form2.adotable2.edit;
form2.ADOTable2.insert;
form2.ADOTable2.FieldByName('no').AsString:=form2.ADOTable1.fieldbyname('number').asstring;
form2.ADOTable2.Post;
这些代码是不行的,不知道哪位高手能做到!
form2.DataSource2.Edit;
form2.ADOTable2.Last;
form2.ADOTable2.FieldByName('endtime').AsDateTime:=datetimepicker1.DateTime;
form2.adotable2.post;
form2.adotable2.edit;
form2.ADOTable2.insert;
form2.ADOTable2.FieldByName('no').AsString:=form2.ADOTable1.fieldbyname('number').asstring;
form2.ADOTable2.Post;
这些代码是不行的,不知道哪位高手能做到!
begin
Last;
Edit;
FieldByName('id').Asstring := Edit1.text;
FieldByName....
Post;
Append;
FieldByName('id').Asstring := Edit1.text;
FieldByName....
Post;
end;
With Form2.ADOTable2 do
begin
Last;//先定位
Edit;//然后修改
FieldByName('endtime').AsDateTime:=datetimepicker1.DateTime;//修改值
post;//提交
insert;//插入 APPEND;//在最后增加
FieldByName('no').AsString:=form2.ADOTable1.fieldbyname('number').asstring;//赋值
Post;
end;
With Form2.ADOTable2 do
begin
Last;//先定位
Edit;//然后修改
FieldByName('endtime').AsDateTime:=datetimepicker1.DateTime;//修改值
post;//提交
insert;//插入 APPEND;//在最后增加
FieldByName('no').AsString:=form2.ADOTable1.fieldbyname('number').asstring;//赋值
Post;
end;
form2.DataSource2.Edit; form2.ADOTable2.FieldByName('endtime').AsDateTime:=datetimepicker1.DateTime;
form2.ADOTable2.Last;
form2.DataSource2.Edit;
form2.ADOTable2.FieldByName('endtime').AsDateTime:=datetimepicker1.DateTime;