DBGrid好像不能多行复制吧,也不能进行列选择,列复制

解决方案 »

  1.   

    進行多行復制可以用下列方法,不過要將其的dgMultiselect設為True,列選擇及多列復制還沒有寫過.主要功能是將Table1的字段workno復制到Memo1中.
    procedure TFormoriginal.btnCopyClick(Sender: TObject);
    var
        i:integer;
        booklist:TBooklist;
        bookstr:Tbookstr;
    begin
       bookstr:=Table1.book;
       try
          booklist:=dbgrid1.SelectedRows;
          for i:=0 to booklist.count-1 do
          begin
             Table1.book:=booklist[i];
             Memo1.lines.add(Table1.fieldbyname('workno').asstring);
          end;
       finally
          Table1:=bookstr;
       end;
    end;