做一个记录的插入,结果总是报‘未知错误’
with frmInputPJ.adoTemp2 do
begin
Append;
FieldByName('CKDH').AsString := frmPJCK.ckdh;//这句总是出错,
FieldByName('PJBM').AsInteger:= StrToInt(frmPJCK.pjbm);
FieldByName('SL').AsInteger := StrToInt(edtSL.Text);
FieldByName('DJ').AsFloat := StrToFloat(edtDJ.Text);
Post;
end;试了几个小时,将第一条插入记录的语句放到最后插入,居然好了,如下:
with frmInputPJ.adoTemp2 do
begin
Append;
FieldByName('PJBM').AsInteger:= StrToInt(frmPJCK.pjbm);
FieldByName('SL').AsInteger := StrToInt(edtSL.Text);
FieldByName('DJ').AsFloat := StrToFloat(edtDJ.Text);
FieldByName('CKDH').AsString := frmPJCK.ckdh;//将这句话从第一个移动到了最后,错误就小时了
Post;
end;
with frmInputPJ.adoTemp2 do
begin
Append;
FieldByName('CKDH').AsString := frmPJCK.ckdh;//这句总是出错,
FieldByName('PJBM').AsInteger:= StrToInt(frmPJCK.pjbm);
FieldByName('SL').AsInteger := StrToInt(edtSL.Text);
FieldByName('DJ').AsFloat := StrToFloat(edtDJ.Text);
Post;
end;试了几个小时,将第一条插入记录的语句放到最后插入,居然好了,如下:
with frmInputPJ.adoTemp2 do
begin
Append;
FieldByName('PJBM').AsInteger:= StrToInt(frmPJCK.pjbm);
FieldByName('SL').AsInteger := StrToInt(edtSL.Text);
FieldByName('DJ').AsFloat := StrToFloat(edtDJ.Text);
FieldByName('CKDH').AsString := frmPJCK.ckdh;//将这句话从第一个移动到了最后,错误就小时了
Post;
end;
解决方案 »
- 編譯出錯:[fatal error]internal error la30
- 一个关于DLL的问题,请教大家?
- 一段小程序,出了什么问题
- 如何安装 DirectX SDK
- 将DataSet的一列值存入TStringList!
- 请问把double型数转化成str的函数是啥?
- 渴望寻找在杭州实习单位
- 用过dxsidebar的朋友来帮忙啊.谢谢大家了
- 在Dll中如何操作数据库?我在Dll中建了个DM,放上ADOConnection和ADOCommand,然后...内详
- DBGRID的picklist問題,在线等!
- 请问为什么关闭程序以后会出现以下的错误?
- 集合转换为Longword 类型可以,但Longword类型如何转换为集合呢???
哦,是不是必须先插入主键才可以?