2,496
社区成员
发帖
与我相关
我的任务
分享报表中换行显示的问题
报表中有些字段的内容很长，需要换行显示。
字段的类型是varchar，我用QRDBText1, 如果把字段类型改成text，用QRDBRichText1换行显示则没有任何问题
但我不想改数据字段的类型，请问我该怎么办？
字段的类型是varchar，我用QRDBText1, 如果把字段类型改成text，用QRDBRichText1换行显示则没有任何问题
但我不想改数据字段的类型，请问我该怎么办？
...全文
请发表友善的回复…
发表回复
雨后阳光2000 2003-09-09
- 打赏
- 举报
procedure autochangerow(wide: integer;var value: string);
var
temparr:array of string;
widelen,i,j:integer;
s:widestring;
begin
j:=1;
s:=value;
widelen:=length(s);
setlength(temparr,j);
temparr[0]:='';
for i:=1 to widelen do
begin
if length(temparr[j-1])+length(s[i])>wide then
begin
j:=j+1;
setlength(temparr,j);
temparr[j-1]:=s[i];
end
else
temparr[j-1]:=temparr[j-1]+s[i];
end;
s:='';
for i:=0 to length(temparr)-2 do
s:=s+temparr[i]+chr(13);
value:=s+temparr[length(temparr)-1];
temparr:=nil;
end;
在QRDBText的ONPRINT事件中写如下代码；
autochangerow(39,value);
函数中WIDE参数为一行长度，汉字不会乱码
var
temparr:array of string;
widelen,i,j:integer;
s:widestring;
begin
j:=1;
s:=value;
widelen:=length(s);
setlength(temparr,j);
temparr[0]:='';
for i:=1 to widelen do
begin
if length(temparr[j-1])+length(s[i])>wide then
begin
j:=j+1;
setlength(temparr,j);
temparr[j-1]:=s[i];
end
else
temparr[j-1]:=temparr[j-1]+s[i];
end;
s:='';
for i:=0 to length(temparr)-2 do
s:=s+temparr[i]+chr(13);
value:=s+temparr[length(temparr)-1];
temparr:=nil;
end;
在QRDBText的ONPRINT事件中写如下代码；
autochangerow(39,value);
函数中WIDE参数为一行长度，汉字不会乱码
ujjcel 2003-07-25
- 打赏
- 举报
up
liangzongqiang 2003-07-24
- 打赏
- 举报
在beforeprint事件中寫代碼,根据字段的长度把该字段分成几段，然后输出到报表！
XXSingle 2003-07-24
- 打赏
- 举报
提取数据时，截取长度再加换行符....
ujjcel 2003-07-24
- 打赏
- 举报
在FastReport中真的没办法实现换行吗？
救命呵。。。。。。。
救命呵。。。。。。。
frogshero 2003-07-23
- 打赏
- 举报
要在beforeprint事件中寫代碼在字串中加入換行符,用ByteType來判斷是否是汗字
proZeus 2003-07-23
- 打赏
- 举报
换控件
用RM吧
用RM吧
ujjcel 2003-07-23
- 打赏
- 举报
up,希望大虾们指教.
雨后阳光2000 2003-07-23
- 打赏
- 举报
比较困难，Delphi的Quickreport在这方面有缺陷。我曾经把值分段赋给两个qrlabel来实现换行。
