你再加个条件嘛,if trim(dsedit)='' then ....

解决方案 »

  1.   

    第二种
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    try
      if adotable1.state in [dsedit,dsinsert] then adotable1.Post;
    except
      messagebox(form1.Handle,'输入数据错误,请重新输入。','提示',mb_iconinformation);
    //当只需要"确定"按钮时,MB_OK可以省去,少写点代码吧!!
    end;
    //方法是老士有点哦 :-)
      

  2.   

    你在调过程中是会先报错误,属正常!!!!!!!!!当你编译成Exe文件时就不会了,
    不信你执行EXE文件看看,呵呵