100分，各位前辈快帮帮我，出现怪事, (30分)

请问各位前辈，我下这段程序运行是对的但我在查看时发现一条已插入而另一条即没插入
with userdate.ku1 do
begin
open;
indexfieldnames:='wzcode';
case cb1.ItemIndex of
0:begin
if not findkey([edit4.text]) then
begin
insert;
fieldbyname('wzcode').asstring:=edit4.Text;
fieldbyname('d1').value:=strtocurr(edit10.text);
fieldbyname('oamount').value:=strtocurr(edit10.text);
post;
end else begin
str5:= userdate.ku1d1.value;
str6:= userdate.ku1oamount.value;
edit;
fieldbyname('d1').value:=(str5+strtocurr(edit10.text));
fieldbyname('oamount').value:=(str6+strtocurr(edit10.text));
post;
end ;
end;
字段d1已插入而oamount即没插入

FiledByName('dddd').Asstring


????

我怎么看也只是插入一条记录的。。。

你是说fieldbyname('oamount').value里面没有值吧。。或许你检查看看。。[]

To cjf老师，对是一条记录，d1和oamount只是一条记录中的两个字段而以

str,str5,str6都是Currency类型？
....AsCurrency:=.....看看

你是说把fieldbyname('oamount').value改成fieldbyname('oamount').ascurrency吗？
这个我也试过，还是不行啊

哦，我以前也出现这种情况，肯定是你的字段那输错了，好好仔细检查一下

多谢各位