if DBYFGraphyFindPropDM <> nil then
  begin
    with DBYFGraphyFindPropDM.YFObjDelDataset do
    begin
      close;
      Parameters.ParamByName('MI_PRINX').Value := ObjMI;
      open;
      if Locate('MI_PRINX', strtoint(ObjMI), [loCaseInsensitive, loPartialKey]) then
      begin
[/b]参考前辈的方法，但是试了不行
{  //以下這幾可以不需要
      bok:= Bookmark;
      Requery();
      Bookmark:=bok;[/b]
        edit;  // Delete之前不須Edit;
}
        Delete;
        // 以下這段不解為何意思 
        if fieldbyname('OBJECTID').AsString <> '' then
        begin
          if Locate('OBJECTID', strtoint(ObjMI), [loCaseInsensitive, loPartialKey]) then
          begin
            //  edit;  <==== 這行拿掉
             Delete; //删除当前绑定的属性信息
           
          end;
        end;
        //  post;  <==== 這行拿掉
        layerObj.selection.clearSelection;
      //图层刷新
        layerobj.Refresh;
      end;
      close;
    end;
  end 

引言:

 
//改称这样之后为什么还是不行？
if DBYFGraphyFindPropDM <> nil then
  begin
    with DBYFGraphyFindPropDM.YFObjDelDataset do
    begin
      close;
      Parameters.ParamByName('MI_PRINX').Value := ObjMI;
      open;
      if Locate('MI_PRINX', strtoint(ObjMI), [loCaseInsensitive, loPartialKey]) then
      begin  
        Delete;  
      layerObj.selection.clearSelection;
      //图层刷新
        layerobj.Refresh;
      end;
      close;
    end;
  end 

發表人 - chance36 於 2004/07/02 15:11:21

// 下面运行成功
 with DBYFGraphyFindPropDM.YFObjDelQuery do
    begin
      close;
      //删除图形
      prepared;
      sql.Clear;
      sql.Add('DELETE FROM YFFDLAYER WHERE MI_PRINX='   ObjMI);
      ExecSQL;
      //删除属性
      close;
      sql.Clear;
      sql.Add('DELETE FROM YFFD WHERE OBJECTID='   ObjMI);
      ExecSql;
      close;

 
if DBYFGraphyFindPropDM <> nil then
  begin
    with DBYFGraphyFindPropDM.YFObjDelDataset do
    begin
      close;
      Parameters.ParamByName('MI_PRINX').Value := ObjMI;
      open;
      if Locate('MI_PRINX', strtoint(ObjMI), [loCaseInsensitive, loPartialKey]) then
      begin  
        Delete; 还是这里出老问题  
      //图层刷新
        layerobj.Refresh;
      end;
      close;
    end;
  end