用报表打印我想要用循环一个一个cells填进去的吧,就是想不通怎么在报表中动态生成lable呢?
解决方案 »
- 【工具分享】【开源项目】《IE脚本辅助》--IE脚本开发不可缺少的工具。
- 关于主从表数据库操作时的按钮状态设置
- 谁用过delphi7里的TDatatbl控件阿?
- 怎样删除treeview中一项下面的所有子项,主要怎么删除数据表中的内容,
- 高分求将一个字符或者字符串转换为UTF-8编码的程序或者控件,搞定了再送100分~~~~
- 逻辑运算问题
- 献给工作一年的同行(KillLaoLi的凌晨呓语)...
- 哪位高手用DELPHI写过触摸屏手写输入软件和软键盘这样的程序?求助!
- 还在做delphi开发的,出来站队了。
- 请问谁知道怎样在delphi将sql_server中的一个表转化成为vfp中的*.dbf表。谢谢了
- 紧急求助:关于网上申报,网上审批的实施方案?
- 谁帮我看看这段代码?
可以打印stringgrid,很方便的,用户自己可以修改报表。
难道就没有报表高手吗?难道就没有人用stringgrid+报表吗?
不会吧,这因该是个很常见的用法啊!
把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;然后用这个表关联报表
搞定
能不能详细一点呢