我有多行数据,想用quickreport分列打印,不用数据库,怎么实现
解决方案 »
- 不激活ole为什么只能显示一页!?能不能显示完整!/
- sql查询后的结果处理
- Image有没有属性直接把它的背景改为colorbox的颜色?
- 有没有树型下拉菜单的ComBox控件?
- 代码解释
- 请问report machine和fastreport有支持delphi7的版本吗???
- 哪里有关于delphi7中报表设计的书籍下载?
- 继续请教,关于《实现按 Enter 键后,光标跳到下一控件》Thanks
- chart 控件怎么用,能给小弟一点例子吗?[email protected]
- 关于打包的问题,急。。。。。。
- 访问网页简单,如何最节省资源呢,请各抒己见
- DBExpress中的ClientDataSet.applyupdates()能否控制它成功時不自動清除Delta
如
----------------------------------------------------------------------
姓名 性别 |姓名 性别
-----------------------------------------------------------------------
张三 男 |李斯 女QR-->Properties Page: columns=2
双击quickreport 在属性页中设置columns为2就行了在QuickRep1NeedData(Sender: TObject;var MoreData: Boolean);中写
moredata:=true;
with Query1 do
begin
if not eof then
beign
for i:=1 to 2 do
if i=1 then
begin
QRLabel1.caption:=fieldbyname('nmae').asstring;//张三
QRlabel2.caption:=fieldbyname('sex').asstring;//男
end;
if i=2then
begin
QRLabel3.caption:=fieldbyname('nmae').asstring;//李四
QRlabel4.caption:=fieldbyname('sex').asstring;
end;
next;
end;
if eof then
moredata:=false;
end;