怎样实现dbgridEH选中多条记录，写到一个窗体（ADOQUERY2）中？

Question

如附图选中后面窗体“QA组”的多条记录写到“原始刷卡记录”的窗体（写到ADOQUERY2中）中~~~
注：QA组中是读取ADOQUERY1 的，那怎么把选中后面窗体“QA组”的多条记录写到ADOQUERY2中？？由于不能上传附图，请看以下网址 谢谢http://www.programbbs.com/bbs/view12-8094-1.htm#46302

Answer 1

如附图选中后面窗体“QA组”的多条记录写到“原始刷卡记录”的窗体（写到ADOQUERY2中）中~~~ 
注：QA组中是读取ADOQUERY1   的，那怎么把选中后面窗体“QA组”的多条记录写到ADOQUERY2中？？ 
---------------
方法很多
1：一边单击，一边添加（当然这里需要写一个函数处理）；
2：对所有需要的信息先进行选择，在统一添加到ADOQUERY2中，但是方法是相同的（最好选择这个处理）

Answer 2

var
i:integer;
frmA:=TfrmA.Creat(nil);
try 
  frmA.showmodal;
  if frmA.ModalResult=mrok then
begin
  with frmA.dg.DataSource.DataSet do//frmA为你选项卡的窗体  
  begin
    for i:=0 to frmA.dg.SelectedRows.Count-1 do
    begin
      GotoBook(pointer(frmA.dg.SelectedRows.Items[i]));
      query2.append;
      query2.fieldbyanem('abc').value:=frma.dg.DataSource.DataSet.FieldByName('abc').AsString;
      ....
      query2.post;
   end;
  end;
end;
finally
  frmA.free;
end;

Answer 3

雨晖
现在出现
commandtest does not return a result set 请看报错附图
http://www.programbbs.com/bbs/view12-8094-2.htm#46580
谢谢
http://www.programbbs.com/bbs/view12-8094-2.htm#46580