将记录从一个表复制到另一个不起作用

Question

我正在使用BDE和平表。 我有两个相同的表，tblOne和tblTwo 我想从一个表复制数据到另一个。不是整个数据库，只是一个特定的记录使用此：

function Tdm.CopyRecord(var tblFrom,tblTo : TTable) : Boolean; 
var 
    i : Integer; 
begin 
    Result:=False; 
    try 
    tblTo.Insert; 
    for i:=1 to tblFrom.FieldCount-1 do 
    begin 
     if tblFrom.Fields[i].FieldName = tblTo.Fields[i].FieldName then 
     tblTo.Fields[i].Value:=tblFrom.Fields[i].Value; 
    end; 
    tblTo.Post; 
    Result:=True; 
    finally 
    end; 
end; 

if CopyRecord(tblOne,tblTwo) then... 

逐步通过这从所有的值为“空”表。

之后我得到一个空白记录添加到tblTo。毫不奇怪，所有的值都是空的。 :)

我在哪里错了复制数据？它没有使它复制功能。

我一直在这个几个小时，不能使它的工作。可能是简单的我看起来很简单。我添加了“var”参数来查看是否有任何区别，但没有。

哦，通过由，我开始循环从“1”而不是“0”，因为这两个文件中的第一个字段是AutoInc。

Answer 1

这里是我会怎么做：

function CopyRecord(tblFrom, tblTo: TTable; const StartIndex: Integer=0): Boolean; 
var 
    i: Integer; 
    FieldFrom, FieldTo: TField; 
begin 
    Result := False; 
    for i := StartIndex to tblFrom.FieldCount - 1 do 
    begin 
    FieldFrom := tblFrom.Fields[i]; 
    FieldTo := tblTo.FindField(FieldFrom.FieldName); 
    if Assigned(FieldTo) then 
    begin 
     FieldTo.Value := FieldFrom.Value; 
     Result := True; 
    end; 
    end; 
end; 

我不会用tblTo.Insert/tblTo.Post内的CopyRecord方法。而是在外面使用它，例如：

tblTwo.Append; 
if CopyRecord(tblOne, tblTwo, 1) then 
    tblTwo.Post 
else 
    tblTwo.Cancel; 

这也可以在Edit模式中重新使用。