烦呀，简单的问题也不懂-----复制记录

[pclogic]

如何在新增记录操作中可搜索原有记录并复制一条记录然后修改为新增的记录

[pclogic]

wave_f(小浪花),没有人顶只有你帮我了，你可以给我发个源程序来的吗？我太菜了看得不是很懂呀
[e-mail]

[pclogic]

wave_f(小浪花),你上面的代码是给新记录默认值吧？
我要的是从原有的记录中选择，后修改
这样说吧，当新增记录的大部分字段值和原有记录的相同时，我想复制原有记录，然后把不同的部分改过来保存。

[wave_f]

你可以把上条记录赋值给变量,然后添加后再把变量的值赋给字段的新记录.

[pclogic]

我觉得这不是很好，我的字段有很多的

[wave_f]

这位是不是从foxpro转过来的,在foxpro中经常scatter memvar,append blank,gather memvar
,delphi中必须一个一个字段赋值,不以那样做了

[wave_f]

procedure Ttest_yp.BitBtn2Click(Sender: TObject);
var
i:integer;
begin
adotable1.Edit;
adotable1.Last;
adotable1.Insert;
for i:=0 to test_yp.DBGrid1.FieldCount-1 do
begin
if adotable1.Fields[i].DataType = ftstring then adotable1.Fields[i].AsString:='';
if adotable1.Fields[i].DataType = ftdatetime then adotable1.Fields[i].Value:=date();
if adotable1.Fields[i].DataType = ftinteger then adotable1.Fields[i].Value:=0;
if adotable1.Fields[i].DataType = ftfloat then adotable1.Fields[i].Value:=0;
if adotable1.Fields[i].DataType = ftboolean then adotable1.Fields[i].Value:=true;
end;
adotable1.Post;
adotable1.Refresh; //刷新记录
test_yp.DBGrid1.Refresh;
test_yp.refresh;
test_yp.DBGrid1.SetFocus;
end;

[pclogic]

答案我自己找到啦：——）
有必要学习这方面的朋友赶紧去看看
http://www.scalabium.com/faq/dct0063.htm

[chenkandy]

up