Crystal Report9 Text文本框控件 程序自动换行问题
在VB6.0中用到了Crystal Report9 里创建了一个文本框控件Text。用程序往Text控件里输入字符时,怎么能实现自动换行功能?
程序如下:
If (Val(report.CVHR.text) <= 55) Then
report.Text62.SetText "心动过缓" '如果心率小于55则表示心电过缓
End If
If (Val(report.CVHR.text) > 100) Then
report.Text62.SetText "心动过快"
End If
If (Val(report.CVSPTI.text) > 3500) Then
report.Text63.SetText "心肌耗氧量增加" '如果左心负荷大于3500,则表示心肌耗氧量增加
End If
但是输出的结果却是:如果上面三个判别语句有两个满足条件的话,在文本框Text只能显示一行即“心肌耗氧量增加”。而我想得到的是“心动过缓(下一行)心肌耗氧量增加” 或“心动过快(下一行)心肌耗氧量增加”
即换行显示。或者不用换行也可以,只要能同时将这两句话显示出来就行。
请问各位高手,怎么实现这个功能。谢谢!
[解决办法]
dim str as string
If (Val(report.CVHR.text) <= 55) Then
str = "心动过缓"
End If
If (Val(report.CVHR.text) > 100) Then
str = "心动过快"
End If
If (Val(report.CVSPTI.text) > 3500) Then
str = trim(str & "心肌耗氧量增加")
End If
report.Text62.SetText str