【结帖】这个是什么情况啊？？**

hanjason996

我写代码的时候把数据库的字段名字写错了，后来我改过来了，但是保存后再运行还是报的是以前那个错误。签出保存再签入还是不行。我设了断电在上面也不行哦。还是会报错
求助啊

zfang

编译了么？

zfang

具体什么错误呢？

hanjason996

编译成功，运行的时候有错

zfang

最初由 zfang 发布
[B]具体什么错误呢？ [/B]

hanjason996

DataSetWZKC.FieldByName('bcljsl').AsFloat:=DataSetWZKC.FieldByName('bcljsl').AsFloat+DataSetNBLLDXBSJJ.FieldByName('slsl').AsFloat;
里面bcljsl一开始写成fcljsl了，后来我改了，但是运行保存的时候还会提示DataSetWZKC fcljsl not found!

zfang

不会吧？这么神奇。检查一下数据集中字段编辑器，检查一下文档（表格和表单）

hanjason996

没有引用这个字段，其实我就是想测试下代码是不正确的
procedure TNBLLXX.DataSetNBLLDJBSJJBeforeCommit(DataSet: TDataSet);
var lParam:Business.Model.TBizParam;
nblldbm:string;
lNum:string;
iCheck:string;
lContextCurrent:TContextCurrent;
lBizUrl:TBizUrl;
begin
lContextCurrent:=TContextCurrent.Create(Context);
lBizUrl:=TBizUrl.Create;
lBizUrl.URL:='Biz:\CSKJ\ZZXL.ParamGroup\ZZ.Param';
try
lParam:=lContextCurrent.GetParam(lBizUrl);
finally
lBizUrl.Free;
lContextCurrent.Free;
end;
lNum:=Variants.VarToStr(lParam.Value);
DataSetNBLLDJBSJJ.FieldByName('nblldbm').AsString:=DataSetNBLLDJBSJJ.FieldByName('nblldbm').AsString+lNum;
iCheck:=DataSetNBLLDJBSJJ.FieldByName('nblldbm').AsString;
showmessage(iCheck);
end;

hanjason996

帮忙看看，我就不用测试了:-)

zfang

没招了，远程看吧。