不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

怎么把stringgrid的内容输出到打印报表里啊!?

楼主sunxking（sunx）2002-04-23 18:15:01 在 Delphi / VCL组件开发及应用提问

以前是直接打，这次要求必须用报表控件，呵呵，各位给个例子了问题点数：50、回复次数：10Top

1 楼hongyou（鸿猷）回复于 2002-04-23 18:26:01 得分 0

用报表打印我想要用循环一个一个cells填进去的吧，就是想不通怎么在报表中动态生成lable呢？Top

2 楼sunxking（sunx）回复于 2002-04-23 18:33:44 得分 0

给个例子吧，给了就把分全塞给你了，呵呵Top

3 楼chenjiong（准程序员:升级中....）回复于 2002-04-23 18:41:59 得分 0

www.pcjingning.com
可以打印stringgrid，很方便的，用户自己可以修改报表。Top

4 楼sunxking（sunx）回复于 2002-04-24 10:10:41 得分 0

难道没有不用第三防控件实现的方法吗？！
难道就没有报表高手吗？难道就没有人用stringgrid+报表吗？
不会吧，这因该是个很常见的用法啊！Top

5 楼human_2（风一帆）回复于 2002-04-24 19:53:51 得分 0

很简单，你假如一个CLIENTDATASET ，然后把STRINGGRID记录写入，让报表与CLIENTDATASET 联系，肯定成功，Top

6 楼lynmison（菻梓）回复于 2002-04-24 20:10:14 得分 10

可以直接打印，需要QuickReport中的OnNeedData事件可以用来控制什么时候停止打印，然后可以直接打印标签，标签里面的值用你所希望的值填写。Top

7 楼Afei1（阿飞1）回复于 2002-04-24 20:23:44 得分 40

多创建一个表
把stringgrid的值全部添加到这个表里

with frmwsqkprn1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('delete from wspbqk1');
execsql;
close;
sql.Clear;
sql.Add('select * from wspbqk1');
open;
end;
with frmwsqkprn1.ADOQuery1 do
begin
for i:=1 to frmwsqkliul.StringGrid1.RowCount-1 do
begin
append;
fieldbyname('bianhao').asstring:=trim(stringgrid1.Cells[0,i]);
fieldbyname('pbtime').asstring:=trim(stringgrid1.Cells[1,i]);
fieldbyname('zdefen').asstring:=trim(stringgrid1.Cells[2,i]);
fieldbyname('mingci').asstring:=trim(stringgrid1.Cells[3,i]);
post;
end;
updatebatch;
first;
end;

然后用这个表关联报表
搞定Top

8 楼vigrous_chen（风）回复于 2002-04-24 20:24:11 得分 0

to lynmison
能不能详细一点呢Top

9 楼yangkunjie（杨七郎)(dephi--c#）回复于 2002-04-24 20:31:34 得分 0

其实他们说的也差不多详细了
你最好试试先！Top

10 楼sunxking（sunx）回复于 2002-04-24 20:46:33 得分 0

好好，各位高手，这就结账！Top