Q
qidaiing
Unregistered / Unconfirmed
GUEST, unregistred user!
在DETAILBAND中放入两行数据
编号 人名
备注
当“备注”为空时,只显示“编号”和“人名”一行,并且DETAILBAND的高度为30,
当“备注”不为空时,只显示“编号”和“人名”和“备注”两行,并且DETAILBAND的高度为60,
在DETAILBAND的BEFORPRINT事件中写入以下代码
with ADOQuery1do
begin
if trim(FieldByName('备注').AsString)=null then
begin
qrdbtext1.Visible:=false;
detailband2.Height:=30;
end;
else
begin
qrdbtext1.Visible:=true;
detailband2.Height:=60;
end;
end;
但是执行起来不行,不知应该怎样设置,怎样写语句,希望能给个例子
编号 人名
备注
当“备注”为空时,只显示“编号”和“人名”一行,并且DETAILBAND的高度为30,
当“备注”不为空时,只显示“编号”和“人名”和“备注”两行,并且DETAILBAND的高度为60,
在DETAILBAND的BEFORPRINT事件中写入以下代码
with ADOQuery1do
begin
if trim(FieldByName('备注').AsString)=null then
begin
qrdbtext1.Visible:=false;
detailband2.Height:=30;
end;
else
begin
qrdbtext1.Visible:=true;
detailband2.Height:=60;
end;
end;
但是执行起来不行,不知应该怎样设置,怎样写语句,希望能给个例子