C
Col
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在遇到一个问题，要把DBGrid中选中的数据（可以是一行，也可以是N行）拷贝的剪贴板中
然后通过剪贴板粘贴到Word文档中，怎么办啦？[
]
然后通过剪贴板粘贴到Word文档中，怎么办啦？[
]
H
hbezwwl
Unregistered / Unconfirmed
GUEST, unregistred user!
拷贝到word中,需不需要也是表格样式.
C
citybug
Unregistered / Unconfirmed
GUEST, unregistred user!
直接通过数据库把数据copy到word中不可以吗？
W
wk_knife
Unregistered / Unconfirmed
GUEST, unregistred user!
如果只是将文本复制还是可以的。
Y
yzhshi
Unregistered / Unconfirmed
GUEST, unregistred user!
遍历DBGrid，使用DbGrid.DataSet.First Next……，行使用DBGrid.Fields.DisplayLabel吧。
如果还要保存到Word中，推荐使用Ole自动化技术，而不是剪贴板。
如果还要保存到Word中，推荐使用Ole自动化技术，而不是剪贴板。
C
Col
Unregistered / Unconfirmed
GUEST, unregistred user!
[]我的意思是将数据按某一种格式Copy出来，有规律的那种，
而且通过剪贴板还可以以表格的形式放到Word中。
用户可以任意选中DBGrid中的记录，一定要用剪贴板！[8D]
最好不用Word作为OLE,因为OLE启动实在太慢了[
!]
]我的意思是将数据按某一种格式Copy出来，有规律的那种，而且通过剪贴板还可以以表格的形式放到Word中。
用户可以任意选中DBGrid中的记录，一定要用剪贴板！[8D]
最好不用Word作为OLE,因为OLE启动实在太慢了[
!]
W
wk_knife
Unregistered / Unconfirmed
GUEST, unregistred user!
以表格的形式——除非了解表格在剪贴板中的存放方式。
C
Col
Unregistered / Unconfirmed
GUEST, unregistred user!
wk_knife
呵呵，废话
呵呵，废话
浪
浪里白条
Unregistered / Unconfirmed
GUEST, unregistred user!
那你何不把数据库的内容导入到EXCEL中，搜索搜索，例子很多的
C
Col
Unregistered / Unconfirmed
GUEST, unregistred user!
浪里白条
嘿嘿，你的主意我正在使用，但是，你有没有发现那速度很慢哦，另外，Microsoft的Query
SQL Server的查询分析器查询出来的结果是可以选中，可以拷贝，可以粘贴到任何文档中，
而且很快，所以将查询结果或者是DBGrid中的数据Copy到剪贴板中是一定可行的[
]
嘿嘿，你的主意我正在使用，但是，你有没有发现那速度很慢哦，另外，Microsoft的Query
SQL Server的查询分析器查询出来的结果是可以选中，可以拷贝，可以粘贴到任何文档中，
而且很快，所以将查询结果或者是DBGrid中的数据Copy到剪贴板中是一定可行的[
]
B
bubble
Unregistered / Unconfirmed
GUEST, unregistred user!
//delphi光盘上有sndkey32单元，copy过来。
uses sndkey32;
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Memo1.Lines.Add(s);
s:= '';
end;
Memo1.SetFocus;
Memo1.SelectAll;
PostMessage(Memo1.handle,WM_Copy,0,0);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Handle:THandle;
begin
Handle:=FindWindow('OpusApp',nil);
SetForegroundWindow(handle);
SendKeys('^v',true);
end;
实验成功。
uses sndkey32;
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Memo1.Lines.Add(s);
s:= '';
end;
Memo1.SetFocus;
Memo1.SelectAll;
PostMessage(Memo1.handle,WM_Copy,0,0);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Handle:THandle;
begin
Handle:=FindWindow('OpusApp',nil);
SetForegroundWindow(handle);
SendKeys('^v',true);
end;
实验成功。
H
happy0971
Unregistered / Unconfirmed
GUEST, unregistred user!
学习
Z
zhumoo
Unregistered / Unconfirmed
GUEST, unregistred user!
关注