delphi cxgrid保存正在编辑的行
2021-03-13 15:31
标签:col message except delphi pre 失败 tableview ssi 应用 delphi cxgrid保存正在编辑的行 标签:col message except delphi pre 失败 tableview ssi 应用 原文地址:https://www.cnblogs.com/sdlz/p/12529936.htmlprocedure 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;
上一篇:初始化Winsock库
文章标题:delphi cxgrid保存正在编辑的行
文章链接:http://soscw.com/index.php/essay/64177.html