请教报表的问题。。。(100分)

G

gadfly

Unregistered / Unconfirmed
GUEST, unregistred user!
将表链到报表的QRDBText中,如果数据为空我想让其显示'----',该怎么做呢?
 
在QRDBText的OnPrint事件中写 
if Value='' then
begin
Value:='----';
end;
 
大哥,好像不行,我想在预览时就就看到‘----’,但没反应,
他是不是在打印时才起作用的呢?我没打印机,没法试。
 
那就在相应字段的OnGetText中写代码。
procedure TDMOS.StringField9GetText(Sender: TField;
var Text: String;
DisplayText: Boolean);
begin

if trim(TField(Sender).AsString)='' then
Text:='----';
end;
 
如果数据为空,就什么也不显示,
这样更好!何必非得显示---

 
谢谢各位!
 
顶部