ERR MSG: p_InsertMerch():External exception C000001D 请问什么情况下会产生External exception C000001D这种错误? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 去这里看http://www.delphibbs.com/delphibbs/dispq.asp?lid=248017 http://www.delphibbs.com/delphibbs/dispq.asp?lid=656777 这个错误只是偶尔会出现了, try //添加销售商品 SaleDataModule.adsSpInfo.Append; SaleDataModule.adsSpInfo.FieldByName('xmdbh').AsString := p_Mdbh; SaleDataModule.adsSpInfo.FieldByName('xspbh').AsString := p_SPInfo.merchid; SaleDataModule.adsSpInfo.FieldByName('xsptm').AsString := p_SPInfo.mtm; SaleDataModule.adsSpInfo.FieldByName('xspdj').AsFloat := p_SPInfo.mlsj; SaleDataModule.adsSpInfo.FieldByName('xsjsj').AsFloat := p_SPInfo.msjsj; SaleDataModule.adsSpInfo.FieldByName('xsumsj').AsFloat := p_SPInfo.mxj; SaleDataModule.adsSpInfo.FieldByName('xxsfs').AsInteger := p_SPInfo.mxsfs; SaleDataModule.adsSpInfo.FieldByName('xzkdh').AsString := p_SPInfo.mzkdh; SaleDataModule.adsSpInfo.FieldByName('xxssl').AsFloat := p_SPInfo.mxssl; SaleDataModule.adsSpInfo.FieldByName('xjh').AsString := p_Jh; SaleDataModule.adsSpInfo.FieldByName('xflow').AsInteger := p_Flow; SaleDataModule.adsSpInfo.FieldByName('xsygh').AsString := p_Sygh; SaleDataModule.adsSpInfo.FieldByName('xxssj').AsString := FormatDateTime('YYYY-MM-DD HH:MM:SS', Now); SaleDataModule.adsSpInfo.FieldByName('xxsrq').AsString := FormatDateTime('YYYY-MM-DD', Now); SaleDataModule.adsSpInfo.FieldByName('xtype').AsInteger := p_type; SaleDataModule.adsSpInfo.FieldByName('xjyxd').ASInteger := p_Jyxd; SaleDataModule.adsSpInfo.FieldByName('xflag').AsInteger := 0; SaleDataModule.adsSpInfo.Post; except on Err: Exception do begin ErrorLog('p_InsertMerch():SaleDataModule.adsSpInfo ' + Err.Message, ''); Result := False; Exit; end; end; 是高手的都进来看一看 关于Sender:object的问题 这个sql语句怎么写? 几个简单的问题,望各位高手指点下 同时运行程序两下,如何实现两个程序间的焦点切换 在delphi中连接sql server 2000数据库,最少需要几个控件? DbGrid控件编辑带小数纪录的小数位时候,如何改变编辑框光标"I"为一个很小的"▲"光标,以便区分小数位 Socket 的ErrorCode在哪可以查到详细说明啊?最好是中文的。 怎么系统盘膨胀的这么大??? MIS高手请进,请教有关用户权限的问题. 如何实现字符串引用? 紧急求救!
http://www.delphibbs.com/delphibbs/dispq.asp?lid=248017
try
//添加销售商品
SaleDataModule.adsSpInfo.Append;
SaleDataModule.adsSpInfo.FieldByName('xmdbh').AsString := p_Mdbh;
SaleDataModule.adsSpInfo.FieldByName('xspbh').AsString := p_SPInfo.merchid;
SaleDataModule.adsSpInfo.FieldByName('xsptm').AsString := p_SPInfo.mtm;
SaleDataModule.adsSpInfo.FieldByName('xspdj').AsFloat := p_SPInfo.mlsj;
SaleDataModule.adsSpInfo.FieldByName('xsjsj').AsFloat := p_SPInfo.msjsj;
SaleDataModule.adsSpInfo.FieldByName('xsumsj').AsFloat := p_SPInfo.mxj;
SaleDataModule.adsSpInfo.FieldByName('xxsfs').AsInteger := p_SPInfo.mxsfs;
SaleDataModule.adsSpInfo.FieldByName('xzkdh').AsString := p_SPInfo.mzkdh;
SaleDataModule.adsSpInfo.FieldByName('xxssl').AsFloat := p_SPInfo.mxssl;
SaleDataModule.adsSpInfo.FieldByName('xjh').AsString := p_Jh;
SaleDataModule.adsSpInfo.FieldByName('xflow').AsInteger := p_Flow;
SaleDataModule.adsSpInfo.FieldByName('xsygh').AsString := p_Sygh;
SaleDataModule.adsSpInfo.FieldByName('xxssj').AsString := FormatDateTime('YYYY-MM-DD HH:MM:SS', Now);
SaleDataModule.adsSpInfo.FieldByName('xxsrq').AsString := FormatDateTime('YYYY-MM-DD', Now);
SaleDataModule.adsSpInfo.FieldByName('xtype').AsInteger := p_type;
SaleDataModule.adsSpInfo.FieldByName('xjyxd').ASInteger := p_Jyxd;
SaleDataModule.adsSpInfo.FieldByName('xflag').AsInteger := 0;
SaleDataModule.adsSpInfo.Post;
except
on Err: Exception do
begin
ErrorLog('p_InsertMerch():SaleDataModule.adsSpInfo ' + Err.Message, '');
Result := False;
Exit;
end;
end;