水晶报表小问题,请高手指点,十万火急,................50分

kfcsdn 2004-09-27 04:20:13
报表如下
送货单
1 aa
2 bb
3 cc
请问如何动态的控制送货单这个标题,就是在VB界面上的一个TEXT里面输入一个退货单,报表的标题改为退货单.急急急
...全文
54 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
风之浪漫 2004-10-12
'DataReport名称为xdt_Drpt1
'Conn 为Connection对象
'在DataReport中必须有对应的Text
下边贴出来的仅是部分,我正好在写一个打印的东东1~
__________________________________________
Dim rs As New ADODB.Recordset
rs.Open sql, Conn, 1, 1
If rs.RecordCount = 0 Then
MsgBox "当前病人未做心电图检查", vbOKOnly, "提示"
rs.Close
Exit Sub
End If
With xdt_Drpt1
.Sections("Section1").Controls("text1").DataField = "心电图号"
.Sections("Section1").Controls("text2").DataField = "病人编号"
.Sections("Section1").Controls("text3").DataField = "病人姓名"
.Sections("Section1").Controls("text4").DataField = "病人年龄"
.Sections("Section1").Controls("text5").DataField = "临床诊断"
.Sections("Section1").Controls("text6").DataField = "心律"
.Sections("Section1").Controls("text7").DataField = "心房率"
.Sections("Section1").Controls("text8").DataField = "心室率"
.Sections("Section1").Controls("text9").DataField = "心电轴"
.Sections("Section1").Controls("text10").DataField = "PR时间"
.Sections("Section1").Controls("text11").DataField = "QRS时间"
.Sections("Section1").Controls("text12").DataField = "QT时间"
.Sections("Section1").Controls("text13").DataField = "心电图特征"
.Sections("Section1").Controls("text14").DataField = "心电图诊断"
.Sections("Section1").Controls("text15").DataField = "检查医生"
Set .DataSource = rs
.Show 1
End With
回复
ZWB_ZYN 2004-10-12
把str送给标题不就可以了?
回复
ZWB_ZYN 2004-10-12
晕哦,这样的问题。

dim str as string

'送货单时
str="送货单"
'退货单时
str="退货单"
回复
caihong 2004-10-12
使用参数字段
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告