我想实现把DbGrid(已设置dgMutiSelect为true)中选中的几行打印出来,看了一些以前的帖子,但是不知道怎么能把DbGrid选中的记录存到一个临时表中;能不能把选中的记录存到adoquery中呢?大家提示我一下吧!
解决方案 »
- 高分求vc代码翻译成delphi?
- delphi运行程序产生'conversion from class Tbutton to soap is not supported'这是为何呢?
- 怎么屏蔽webBrowser打开网页的所有声音
- 高手快来啊,在线等待
- 网络编程请大家关注!!!在线,(急!!!)
- 菜鸟二问
- 哈菜鸟问题;怎样控制其他机器的SocketConnect或DcomConnect对我的DCOM(也即Remote Data Module)的访问?
- 怎样使用模糊查询!
- 为什么从串口收到的数据显示不出中文啊?
- 关于客户程序和浏览器同时调用中间层的问题。
- 图象闪烁:试了很多方法了
- XP下的不能跟踪DLL,请问如何解决
i : integer;
booklist1 : tbooklist;
book1 : tbook;
ss,ss1 : string;
begin
book1 := quy_test.GetBook; ss := 'select * from testtable where id in ('; booklist1 := dbgrid1.selectedrows;
for i := 0 to booklist1.Count - 1 do
begin
quy_test.GotoBook(pointer(booklist1[i]));
if i <> booklist1.Count - 1 then
ss1 := ss1 + '''' + quy_test.fieldbyname('id').asstring + '''' + ','
else
ss1 := ss1 + '''' + quy_test.fieldbyname('id').asstring + '''';
end;
quy_test.GotoBook(book1);
quy_test.FreeBook(book1);
ss := ss + ss1 + ') '; quy_test.Close;
quy_test.SQL.Clear;
quy_test.SQL.Add(ss);
frReport1.ShowReport;
end;说明:quy_test连接dbgrid1