用dbgrid实现这样的效果 .....

Question

我想用dbgrid实现一个效果：
选择dbgrid中的几行(可以隔行任意选),把这几行的某个字段（a）复制到另一个表（table_2）中,其中dbgrid 对应表 table_1

Answer 1

设置DBgrid的属性Options下的dgMultiSelect为True
然后再配合下面的代码即可实现想要的功能
procedure TForm1.btnOKClick(Sender: TObject);
var
  i: Integer;
begin  for I := 0 to DBGrid1.SelectedRows.Count - 1 do
  begin
    adsData.Book := DBGrid1.SelectedRows.Items[i];
    Caption := Caption + ' -> ' + adsData.FieldByName('name').AsString;  end;
end;祝你好运

Answer 2

呵呵， 这个同Windows的基本操作一样啊， 使用Shift＋左键   ， Ctrl＋左键是挨个选