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只能显示一行即“心肌耗氧量增加”。而我想得到的是“心动过缓(下一行)心肌耗氧量增加” 或“心动过快(下一行)心肌耗氧量增加”
即换行显示。或者不用换行也可以,只要能同时将这两句话显示出来就行。
请问各位高手,怎么实现这个功能。谢谢!
程序如下:
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
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
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28