delphi cxgrid保存正在编辑的行

2021-03-13 15:31

阅读:738

标签:col   message   except   delphi   pre   失败   tableview   ssi   应用   

procedure SaveGridViewEditing(AView: TcxGridDBTableView); overload;
var
  vDst: TDataSet;
begin // 应用未保存编辑框的修改
  if (AView.DataController.EditState  []) then
    AView.DataController.Post;
  vDst := AView.DataController.DataSet;
  if Assigned(vDst) then // 修改到数据库中
  begin
    try
      if vDst.State in [dsInsert, dsEdit] then
        vDst.Post;
    except
      on E: Exception do
        DisposeExcept(保存表格数据失败!, E);
    end;
  end
  else
    AlertMessage(保存时未找到表格对应数据集!, 2);
end;

procedure SaveGridViewEditing(AView: TcxGridDBBandedTableView); overload;
var
  vDst: TDataSet;
begin // 应用未保存编辑框的修改
  if (AView.DataController.EditState  []) then
    AView.DataController.Post;
  vDst := AView.DataController.DataSet;
  if Assigned(vDst) then // 修改到数据库中
  begin
    try
      if vDst.State in [dsInsert, dsEdit] then
        vDst.Post;
    except
      on E: Exception do
        DisposeExcept(保存表格数据失败!, E);
    end;
  end
  else
    AlertMessage(保存时未找到表格对应数据集!, 2);
end;

 

delphi cxgrid保存正在编辑的行

标签:col   message   except   delphi   pre   失败   tableview   ssi   应用   

原文地址:https://www.cnblogs.com/sdlz/p/12529936.html


评论


亲,登录后才可以留言!