关于dbgrid问题

Question

如何将一个dbgrid添加记录加入到另一个dbgrid

Answer 1

直接用另一个DBGRID追加就可以了：
dbgrid2.datasource.dataset.append;
dbgrid2.datasource.dataset.fieldbyname('field1').value := 
                            dbgrid1.datasource.dataset.fieldbyname('field1').value;
...............................
...............................

Answer 2

if data.ClientDataSet2.RecordCount<>0 then
begin
 data.ClientDataSet3.Append;
 data.ClientDataSet3.FieldByName('mc').AsString:=data.ClientDataSet2.Params[1].AsString;
 data.ClientDataSet3.FieldByName('sl').AsString:=data.ClientDataSet2.Params[2].AsString;
 data.ClientDataSet3.FieldByName('dw').AsString:=data.ClientDataSet2.params[3].AsString;
 data.ClientDataSet3.FieldByName('cyr').AsString:=data.ClientDataSet2.params[0].AsString;
 data.ClientDataSet3.FieldByName('jyqk').AsString:=data.ClientDataSet2.Params[6].AsString;
 //data.ClientDataSet3.FieldByName('wpbh').AsString:=data.ClientDataSet2.Params[7].AsString;
 data.ClientDataSet3.ApplyUpdates(0);
 data.ClientDataSet3.Execute;
帮我修改一下总出现list index bounds out of 问题，在线等待

Answer 3

if data.ClientDataSet2.RecordCount<>0 then
begin
data.ClientDataSet3.Append;
data.ClientDataSet3.FieldByName('mc').AsString:=data.ClientDataSet2.Params[1].AsString;
data.ClientDataSet3.FieldByName('sl').AsString:=data.ClientDataSet2.Params[2].AsString;
data.ClientDataSet3.FieldByName('dw').AsString:=data.ClientDataSet2.params[3].AsString;
data.ClientDataSet3.FieldByName('cyr').AsString:=data.ClientDataSet2.params[0].AsString;
data.ClientDataSet3.FieldByName('jyqk').AsString:=data.ClientDataSet2.Params[6].AsString;
//data.ClientDataSet3.FieldByName('wpbh').AsString:=data.ClientDataSet2.Params[7].AsString;
data.ClientDataSet3.POST;
data.ClientDataSet3.ApplyUpdates(0);
list index bounds out of 可能是Params[7]的問題,比如你隻有7個字段

Answer 4

仍出现list index  out of bounds(1)