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

[kfcsdn]

报表如下
送货单
1 aa
2 bb
3 cc
请问如何动态的控制送货单这个标题,就是在VB界面上的一个TEXT里面输入一个退货单,报表的标题改为退货单.急急急

[caihong]

使用参数字段

[ZWB_ZYN]

晕哦，这样的问题。

dim str as string

'送货单时
str="送货单"
'退货单时
str="退货单"

[ZWB_ZYN]

把str送给标题不就可以了？

[风之浪漫]

'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