报表打印空字段以及空格的问题(150分)

plzh · 1999-08-26

在报表打印时如何将其中的某几个字段空出来不打印,而其他几字段照常
打印.如：
-----------------------------------------
| field1 | field2 | field3 | field4 |
_________________________________________
| a | b | 空 | 空 |
-----------------------------------------
| a1 | b1 | 空 | 空 |
-----------------------------------------
| a2 | b2 | 空 | 空 |
-----------------------------------------
| | | | |<<-空格填充
----------------------------------------
| | | | |
-----------------------------------------
如果打印完成后，本页未充满，则以空格充满.不知我应该怎样做?
请各位不惜赐教.

menxin · 1999-08-26

在SQL中设法加入空记录。

cytown · 1999-08-26

空字段:
sql使用select field1, field2, "" as field3, "" as field4 from table1
空行：
不知你使用什么报表打印构件？

plzh · 1999-08-26

我用的是TQuickRep.

plzh · 1999-08-26

我按cytown的方法。DELPHI给出如下错误提示：
Query1:type mismatch for field 'field3',
excepted: smallint ,actual:string;
我用的是paradox 表

cytown · 1999-08-26

try this->
select field1, field2, "" as "field3", "" as "field4" from table1
if not function try replace field3 as field3a and field4 as field4a

plzh · 1999-08-26

field3, field4 的类型都是smallint.

plzh · 1999-08-26

cytown 你能说的更详细一点吗？

delphiwolf · 1999-08-27

select field1, field2, 'field3', 'field4' from table1

plzh · 1999-08-27

如果按这种方法：
select field1,field2,"" as "field3",""as "field4" from table1
提示的错误是：
invalid use keyword Token: ，“”;
如果这样：
select field1,field2,"field3","field" from table1
错误是：

Query1:type mismatch for field 'field3',
excepted: smallint ,actual:string;

cytown · 1999-08-27

啊,不可能, 是不是应当使用单引号?
否则引号间加一个空格试试.
本身语句绝对没错误!
再不行, try replace field3 as field3a and field4 as field4a!

plwei · 1999-08-27

第一个问题我已经解决了，我是这样做的：
在打印预览时使QRDBText3.datafield:='';
不过我又发现一个新问题，我将纸张类型设为B5，上空10.0mm下空10.0mm
可是打印、预览时不会自动换页——系统给定的一页的内容超出了实际纸张的大小。
有没有解决的办法？（我只想用Quickreport）

plzh · 1999-08-28

第一个问题的答案我接受了.
那第二个问题的答案呢?

amo · 1999-08-28

设置printifempty=true试试

plzh · 1999-08-28

我的第二个问题是用空网格将剩余的页面添充满。

曹晓钢 · 1999-08-28

第一个问题，我个人认为在qrband.beforeprint中控制更好。直接控制qrlabel
或者qrDBText的visible不就好了？不涉及任何数据库的问题。
区区一行。
qr2.x以后，reDBText的visible属性取消了，好像是Enable了。或者狠一点
left:=200000;
第二个问题,你的想法不是很对，应该是控制QrBand,使得每页只打印你需要的
内容，你总是有分隔条件的吧？这一页要填充不就是为了下一页放在开头吗？
根据条件，自己利用qrband.forceNewPage吧。
windows和dos不一样啊！quick report的思路已经不是行式打印机的思路了。

plzh · 1999-09-08

那第二个问题怎么解决呢？为什么没有人回答呢？

plzh · 1999-09-18

用ReportBuilder Pro可不可以方便的追加网格？

luweizhong · 1999-11-24

We havedo
ne many work like you.
Our method is
1, Create one temp table
2, insert into the value from the Result of SQL
3, Calculate the record num
4, Append the space record until the last page full
5, print
If youdo
n't need print 0 instead of ''
you cando
like this:
in the temp table , uses Fields Editor
in the field event (OnGetText)
Add:
if Sender.AsInteger=40 then
Text:=''
else
Text:=IntToStr(Sender.AsInteger);

plzh · 1999-11-24

多人接受答案了。

报表打印空字段以及空格的问题(150分)

plzh

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

plzh

Unregistered / Unconfirmed

plzh

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

plzh

Unregistered / Unconfirmed

plzh

Unregistered / Unconfirmed

delphiwolf

Unregistered / Unconfirmed

plzh

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

plwei

Unregistered / Unconfirmed

plzh

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

plzh

Unregistered / Unconfirmed

曹晓钢

Unregistered / Unconfirmed

plzh

Unregistered / Unconfirmed

plzh

Unregistered / Unconfirmed

luweizhong

Unregistered / Unconfirmed

plzh

Unregistered / Unconfirmed

Similar threads