+ -
当前位置:首页 → 问答吧 → Crystal Report9 Text文本框控件 程序自动换行问题

Crystal Report9 Text文本框控件 程序自动换行问题

时间:2011-07-18

来源:互联网

在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只能显示一行即“心肌耗氧量增加”。而我想得到的是“心动过缓(下一行)心肌耗氧量增加” 或“心动过快(下一行)心肌耗氧量增加”
即换行显示。或者不用换行也可以,只要能同时将这两句话显示出来就行。
请问各位高手,怎么实现这个功能。谢谢!

作者: hufusong   发布时间: 2011-07-18

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

作者: patrickkong   发布时间: 2011-07-20