只有一个dbgrid,一个增加键,增加时重复和为空时报错。
代码如下:
if (E as eDBENGineError).Errors[0].Errorcode=9729 then
begin
messagedlg('重复‘,mtwarning,[mbok],0);
abort;
end
else
begin
messagedlg('为空',mtwarning,[mbok],0);
abort;
end;
代码如下:
if (E as eDBENGineError).Errors[0].Errorcode=9729 then
begin
messagedlg('重复‘,mtwarning,[mbok],0);
abort;
end
else
begin
messagedlg('为空',mtwarning,[mbok],0);
abort;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货