if Datamodule1.ClientTabarea.modified then
  Datamodule1.ClientTabarea.post
或许可以吧

解决方案 »

  1.   

    1、要想post必须是table在edit或insert下才行
    2、比较属性不一致
    3、系统告诉你area并没有用,你可以使用,比如:show
      

  2.   

    你的分真多,可以分两次来给啊?呵呵。
    1、在使用ClientTabarea.post之前加一句:ClientTabarea.edit;
    2、把 while ((GetTickCount div 1000)<(Currenttime+3)) do 改成:
          while (Currenttime<Currenttime+3) do
    3、从 var
        area:Tarea;
        begin
        area:=Tarea.Create(application);  这几句中删掉这两句:    area:Tarea;和area:=Tarea.Create(application); 
      

  3.   

    1、ClientTabarea.applyupdates;
    2、忽略3、var
         area:Tarea;