想修改数据库最后一条记录的一个字段,同时再新增加一条记录,
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;
这些代码是不行的,不知道哪位高手能做到!

解决方案 »

  1.   

    With Form2.ADOTable2 do
    begin
      Last;
      Edit;
      FieldByName('id').Asstring := Edit1.text;
      FieldByName....
      Post;
      Append;
      FieldByName('id').Asstring := Edit1.text;
      FieldByName....
      Post;
    end;
      

  2.   

    气死我了,又没有显示全部
    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;
      

  3.   

    气死我了,又没有显示全部
    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;
      

  4.   

    form2.ADOTable2.Last;
    form2.DataSource2.Edit;     form2.ADOTable2.FieldByName('endtime').AsDateTime:=datetimepicker1.DateTime;
      

  5.   


         form2.ADOTable2.Last;
    form2.DataSource2.Edit;
         form2.ADOTable2.FieldByName('endtime').AsDateTime:=datetimepicker1.DateTime;