在报表中怎样实现table中memo字段的打印(100分)

G

gaqizh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-15

• #1

做一个公文系统，因其中有些字段不能确定长度，我想用memo字段处理，首先用TDBTEXT
控件，但连上数据库中的MEMO，把几个常用属性设好后，结果模拟显示没显示；再试用
TQRMemo控件，输入一长字符串,把AUTOSTRETCH属性设有True后，模拟显示时却不换行。

 

小

小周

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-15

• #2

用TQRMEMO应该可能的，换行的问题可用一段代码使其自动换行！关于自动换行的代码我找一下
再写在论坛上吧！

 

A

atman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-15

• #3

就用TQRMEMO！
保证没问题！

 

G

gaqizh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-16

• #4

不能换页

 

S

slicker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-16

• #5

用TQRMemo,
换行解决方法如下:
在报表窗体中放置一个TMemo控件,
with memo1do
begin
Visible := False;
Height := qrmemo1.height;
Width := qrmemo1.width;
end;
在QRBand的BeforePrint事件中加入如下代码;
procedure TForm1.QrBand1BeforePrint(Sender : TObject)
begin
memo1.Lines.clear;
memo1.lines.add(table1memo.value);
qrmemo1.lines.clear;
qrmemo1.lines.addstrings(memo1.lines)
end;

OK!

 

W

wind_cloudy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-17

• #6

用TQRDBRichText可以

 

G

gaqizh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-20

• #7

多人接受答案了。