dbgrid多选的问题（100）

Question

苯而有效的方法：
每次选择，清空dbgrid2相连的dataset，重新插入所有选择的纪录。

Answer 1

procedure SourceToDest(ASrcDS, ADstDS: TDataSet;
      ASrcArr, ADstArr: array of String);
var
  J: Integer;
  Index: Integer;
begin
  ADstDS.Append;  Index := Low(ADstArr);
  for J := Low(ASrcArr) to High(ASrcArr) do
  begin
    if (Index > High(ADstArr)) then
      Break;    ADstDS.FieldByName(ADstArr[Index]).Value :=
              ASrcDS.FieldByName(ASrcArr[J]).Value;    Inc(Index);
  end;
end;