如何讓QuickRep中的QRDBText1自動分行？(100分)

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #21

用Qreport 3.62為什麼看不到分行後下一行的文字呢？
難道大家做報表都不分行的嗎？

 

J

Jiams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #22

Yhhe说的对
我用的是3.62,
设autosize:=false;
wordwrap:=true;可以
QRLABEL中在要换行的地方加空格就可以了
这是唯一的答案了.

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #23

TO:Jiams
我用Qreport 3.62分行後，卻看不到下一行的文字！這是為什麼呢？怎麼解決？

 

F

flyingQQ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #24

使用QRDBRichText来显示数据字段吧！

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #25

TO:flyingQQ
用QRDBRichText来显示数据字段，但是顯示出來的是空白，什麼都看不到！

 

D

delphiboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #26

以前做oa的时候用qrdbmemo做过换行。

 

Z

zhuwei02

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #27

procedure Tfrm.QRDBText4Print(sender: TObject;
var Value: String);
begin
//128是栏宽。
if Length(Value) <= QRDBText4.Width/7 then
exit;
strSource := Value;
Value := '';
//防止截断汉字。
while truedo
begin
iLen := 1;
while iLen < QRDBText4.Width/7do
begin
if ord(strSource[iLen]) > 128 then
inc(iLen, 2)
else
inc(iLen);
end;
dec(iLen);
strTemp := Copy(strSource, 1, iLen);
//加回车。
if Value = '' then
Value := strTemp
else
Value := Value + #13 + strTemp;
strSource := Copy(strSource, iLen + 1, Length(strSource) - iLen);
if Length(strSource) <= QRDBText4.Width/7 then
begin
Value := Value + #13 + strSource;
exit;
end;
end;
end;

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #28

TO:zhuwei02
你調試通過了嗎？

 

Z

zhuwei02

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #29

当然通过了，当然还要定义变量，这就不要我多说了吧
var
iLen : integer;
strSource, strTemp : string;

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #30

TO:zhuwei02
等會我試試，若可以這100分就是你的啦! 謝謝!

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #31

TO:zhuwei02
是可以分行啦，但是我在QRDBText4旁邊放QRshape1作為QRDBText4字段和其它字段的分隔符。
怎樣在使QRshape1的高度隨著分行後的DetailBand1高度變化而變化呢？

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #32

我搜索了以前的贴子，这种方法没用：我升级到3.62也不行，
autosize:=true;
autostetch:=false;
worldwrap:=true;
不管用还会造成其他问题：当字符太多超过qrdbtext的范围，会自动换页
只能靠写代码换控件了：（

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #33

我在QRDBText1的ONprint事件中寫入：QRShape1.Height:=DetailBand1.Height;
為什麼QRShape1的高度不能隨著DetailBand1高度的變化而變化呢？
怎麼解決QRShape1的高度能隨著DetailBand1高度的變化而變化呢？

 

L

lichaogang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #34

你这样是不行了，在执行时你可以跟一下DetailBand1.Height的值，看一看它是否有变化?

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #35

怎麼解決呢？

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #36

我这里有个补丁，据说解决了这个问题，我还没有看过，如果想要，发给你吧

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #37

TO:hanpengshan_00
什麼补丁？能很好的解決分行問題嗎？fwcy@sohu.com 謝謝!

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #38

已经发过去了

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-25

• #39

TO:hanpengshan_00
還是不行!
難道沒有人能很好的解決這個分行問題嗎？ 高手，你們在哪裡呀？

 

S

superrgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #40

可以用QRMemo代替呀，效果一样！