怎样将STRINGGRID的内容用报表打印出来? 你可使用quickrep打印.在打印时,要在quickrep的onneeddata中读取stringgrid中的内容.好运! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 moredata := true; if l >= form.StringGrid1.RowCount then begin moredata := false; qrlabel25.caption := '统计日期:' + formatdatetime('dddddd', now); end; qrlabel9.Caption := form.StringGrid1.Cells[0, l]; qrlabel10.Caption := form.StringGrid1.Cells[1, l]; qrlabel16.Caption :=form.StringGrid1.Cells[2, l]; qrlabel17.Caption := form.StringGrid1.Cells[3, l]; qrlabel18.Caption := form.StringGrid1.Cells[4, l]; qrlabel19.Caption := form.StringGrid1.Cells[5, l]; qrlabel20.Caption := form.StringGrid1.Cells[6, l]; qrlabel21.Caption := form.StringGrid1.Cells[7, l]; qrlabel22.Caption := trim(form.StringGrid1.Cells[8, l]); qrlabel23.Caption := form.StringGrid1.Cells[9, l]; l := l + 1;其中l要在beforeprint中设初值.好运! 也可以用print object。什么东东都可以打出来 100分求 DevExpressVCL 傻瓜安装问题 知道一个窗体的名称,如何获得他的TFormClass? 高手来帮忙,在线等 Mapx中画直线问题? TStrings最多能加多少个元素啊!?? 数据过滤的问题。。。 我要一个查询的程序段 如何使远程的可视ActiveX加载到本地并显示出来(比如TEDITX)? 问问如何实现这一方案的思想? 急急急!!!关于SQL的查询、统计问题。 有个不知道算不算难的问题想问问各位高手! 如何知道数据库中的IMAGE字段是否为空?
if l >= form.StringGrid1.RowCount then
begin
moredata := false;
qrlabel25.caption := '统计日期:' + formatdatetime('dddddd', now);
end;
qrlabel9.Caption := form.StringGrid1.Cells[0, l];
qrlabel10.Caption := form.StringGrid1.Cells[1, l];
qrlabel16.Caption :=form.StringGrid1.Cells[2, l];
qrlabel17.Caption := form.StringGrid1.Cells[3, l];
qrlabel18.Caption := form.StringGrid1.Cells[4, l];
qrlabel19.Caption := form.StringGrid1.Cells[5, l];
qrlabel20.Caption := form.StringGrid1.Cells[6, l];
qrlabel21.Caption := form.StringGrid1.Cells[7, l];
qrlabel22.Caption := trim(form.StringGrid1.Cells[8, l]);
qrlabel23.Caption := form.StringGrid1.Cells[9, l];
l := l + 1;其中l要在beforeprint中设初值.
好运!